Skizze der Stäbe

In[604]:=

In[605]:=

<<Graphics`Arrow`;
tabLineTo=Table[lineTo[k],{k,1,az}];
tabLineFrom=Table[lineFrom[k],{k,0,az}];
tabLines=Flatten[{tabLineTo,tabLineFrom}];
Show[Graphics[Join[{Text["p1",p1,{-1,(-1)^sV }],Text["p2",p2,{0,(-1)^sV }],Text["p3",p3,{0,-1.5 (-1)^sV }],Text["p4",p4,{-1,-1 (-1)^sV }],
          Text["Kraft",p3,{-2,-2},{1,1}],Line[{p1-0.2(p4-p1),p4+0.2(p4-p1)}],
          Thickness[.015],
          Arrow[p3+2{1,1},p3+0.5{1,1}],
          Line[{p1,p2,p3,p4,p1}],tabLines,
          PointSize[0.03],RGBColor[1,0,0],
          Point[p1],Point[p2],Point[p3],Point[p4]},tabPointpupo],PlotRange→All],AspectRatio→Automatic];

Created by Mathematica  (December 15, 2006)