Output Skizze
In[644]:=
In[645]:=
In[646]:=
In[651]:=
Created by
Mathematica
(December 15, 2006)
![If[reaktion == 1, p01x = p1x/.solv1 ; p01y = p1y/.solv1 ; p04x = p4x/.solv1 ; p04y = 0, p01x = p1x/.solv1 ; p01y = 0 ; p04x = p4x/.solv1 ; p04y = p4x, p4y/.solv1] ;](../HTMLFiles/PrototypStatikTragwerke_88.gif)
![tabLineTo = Table[lineTo[k], {k, 1, az}] ;](../HTMLFiles/PrototypStatikTragwerke_91.gif){kind=small}
![tabLineFrom = Table[lineFrom[k], {k, 0, az}] ;](../HTMLFiles/PrototypStatikTragwerke_92.gif){kind=small}
![tabLines = Flatten[{tabLineTo, tabLineFrom}] ;](../HTMLFiles/PrototypStatikTragwerke_93.gif){kind=small}
![[Graphics:../HTMLFiles/PrototypStatikTragwerke_95.gif]](../HTMLFiles/PrototypStatikTragwerke_95.gif)
