Tabelle der Punktkoordinaten und Skizze ausgeben:

In[596]:=

pu[k_] := p1 + k/(az + 1) (p2 - p1) ;

po[k_] := p4 + k/(az + 1) (p3 - p4) ;

Prepend[Table[{k, pu[k], po[k]}, {k, 0, az + 1}], {"k", "pu[k]", "po[k]"}]//MatrixForm//N

Out[598]//MatrixForm=

( {{k, pu[k], po[k]}, {0., {0., 0.}, {0., 4.}}, {1., {2., 0.}, {2.2, 3.6}}, {2., {4., 0.}, {4.4, 3.2}}, {3., {6., 0.}, {6.6, 2.8}}, {4., {8., 0.}, {8.8, 2.4}}, {5., {10., 0.}, {11., 2.}}} )

In[599]:=

<<Graphics`Arrow` ;

tabpu = Table[pu[k], {k, 0, az + 1}] ;

tabpo = Table[po[k], {k, 0, az + 1}] ;

tabPointpupo = Flatten[{Table[Point[pu[k]], {k, 0, az + 1}], Table[Point[po[k]], {k, 0, az + 1}]}] ;

[Graphics:../HTMLFiles/PrototypStatikTragwerke_54.gif]

Go to▼

Created by Mathematica  (December 15, 2006) Valid XHTML 1.1!