Files
mathematikfhtw/2dgrafiken/06_2.pst
2020-10-24 13:47:37 +02:00

86 lines
3.3 KiB
Plaintext

\psset{xunit=1cm, yunit=1cm}
%\psframebox{
\begin{pspicture}(-2.5,-2.3)(3,2.0)
\SpecialCoor
%\psgrid[%griddots=20,
%gridlabels=0pt, subgriddiv=10](-2,-1)(1,1.5)
%\multido{\iX=0+30}{13}{\psline[linecolor=blue](1,1)(0.25cm;\iX)}
\psaxes[linewidth=0.5pt,linecolor=red,%ticks=none,
ticks=none,
labels=none
](0,0)(-2,-1)(1,1.5) %Mittelpunkt (linke Seite x,y 3/4 Quad) (rechte Seite x,y)
\pscircle[linewidth=0.5pt](-1,-0.5){0.25}
\pscircle[linewidth=.5pt](0.5,-0.5){0.25}
\pscircle[linewidth=.5pt](-1.5,0.5){0.25}
\pspolygon[linewidth=0.5pt,linearc=.025,linecolor=darkgray](-1.9,0.1)(-0.1,0.1)(-1.9,1.2)
\pspolygon[linewidth=0.5pt,linearc=.025,linecolor=darkgray](-1.9,1.5)(-0.1,1.5) (-0.1,0.4)
%Grundkreuz vier Einzellinien
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.5,0.75)
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.5,0.25)
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.75,0.5)
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.25,0.5)
%re o
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.7165,0.625)
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.625,0.7165)
%re u
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.7165,0.375)
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.625,0.2835)
%li u
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.2835,0.375)
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.375,0.2835)
%li o
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.2835,0.625)
\psline[linewidth=0.5pt,linecolor=orange](0.5,0.5)(0.375,0.7165)
%Kreuz links
%Grundkreuz vier Einzellinien
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.5,1.35)
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.5,0.85)
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.75,1.1)
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.25,1.1)
%re o
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.2835,1.225)
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.375,1.3165)
%re u
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.2835,0.975)
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.375,0.8835)
%li u
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.7165,0.975)
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.625,0.8835)
%li o
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.7165,1.225)
\psline[linewidth=0.5pt,linecolor=orange](-0.5,1.1)(-0.625,1.3165)
\rput[c](-1.8,1.3){\tiny{$b_{11}$}}
\rput[c](-0.2,0.35){\tiny{$b_{rr}$}}
\rput[c](-1.5,1.1075){$\cdot$}
\rput[c](-1.25,0.95625){$\cdot$}
\rput[c](-1,0.805){$\cdot$}
\rput[c](-0.75,0.65375){$\cdot$}
\rput[c](-0.5,0.5025){$\cdot$}
%\multido {\ra=.5+1,\ib=1+1}{8}{\rput (\ra ,-.4){\ib }}
\pscurve[linewidth=0.5pt]{}(-2,1.7)(-2.2,0.25)(-2,-1.2)
\pscurve[linewidth=0.5pt]{}(1,1.7)(1.2,0.25)(1,-1.2)
\psbrace[linewidth=0.5pt,ref=lC, nodesepA=1pt](1.3,-1)(1.3,-0.05){}
\rput[l](1.7,-0.3){\tiny{Zeile $r+1$}}
\rput[l](1.7,-0.55){\tiny{bis $m$\\(falls}}
\rput[l](1.7,-0.8){\tiny{$r<m$)}}
\psbrace[linewidth=0.5pt,ref=lC, nodesepA=1pt](1.3,0.05)(1.3,1.5){\tiny{Zeile $1$ bis $r$}}
\psbrace[linewidth=0.5pt,ref=cC, nodesepB=-4pt,rot=90](-1.9,-1.1)(-0.05,-1.1){\tiny{Spalte $1$ bis $r$}}
\psbrace[linewidth=0.5pt,ref=cC, nodesepB=-4pt,rot=90](0.05,-1.1)(1,-1.1){\tiny{Spalte $r+1$}}
\rput[c](0.5,-1.8){\tiny{bis $n$ (falls}}
\rput[c](0.5,-2.0){\tiny{$r<n$)}}
\end{pspicture}%}