PrototypStatikTragwerke.nb

Last Output

In[652]:=

Print["Kraftvektoren: " ];

Print["Kraft links aussen unten: ",(kAussenP1[p1x,p1y]/. solv)//Transpose//MatrixForm];

Print["Kraft links aussen oben: ",(kAussenP4[p4x,p4y]/. solv)//Transpose//MatrixForm];

Print["Stabkräfte unten: ", (Table[xL[N[k]](pu[k]-pu[k-1]),{k,0,az+1}]/. solv) //Transpose//MatrixForm];

Print["Stabkräfte oben: ",
(Table[yL[N[k]](po[k]-po[k-1]),{k,0,az+1}]/. solv)//Transpose//MatrixForm];

Print["Kräfte schräge Stäbe: ", (Table[xF[N[k]] stabFrom[k],{k,0,az+1}]/. solv)//Transpose//MatrixForm];

Print["Kräfte fast senkrechte Stäbe: ", (Table[xT[N[k]] stabTo[k],{k,0,az+1}]/. solv)//Transpose//MatrixForm];

Stabkräfte unten: ( {{( {{2 xL[0.]}, {0}} )}, {( {{0.0853175}, {0}} )}, {( {{-1.71726}, {0}} )}, {( {{-0.380952}, {0}} )}, {( {{-2.41667}, {0}} )}, {( {{-1.5}, {0}} )}} )

In[659]:=

Print["Grösse (Länge) der Kräfte: " ];

Print["Kraft links aussen unten: ", Norm[kAussenP1[p1x,p1y]]/. solv];

Print["Kraft links aussen oben: ",Norm[kAussenP4[p4x,p4y]]/. solv];

Print["Stabkräfte unten: ", {Table[Norm[xL[N[k]](pu[k]-pu[k-1])],{k,0,az+1}]/. solv}//Transpose//MatrixForm];

Print["Stabkräfte oben: ",
{Table[Norm[yL[N[k]](po[k]-po[k-1])],{k,0,az+1}]/. solv}//Transpose//MatrixForm];

Print["Kräfte schräge Stäbe: ", {(Table[Norm[xF[N[k]] stabFrom[k]],{k,0,az+1}]/. solv)}//Transpose//MatrixForm];

Print["Kräfte fast senkrechte Stäbe: ", {Table[Norm[xT[N[k]] stabTo[k]],{k,0,az+1}]/. solv}//Transpose//MatrixForm];

Stabkräfte unten: ( {{( {{2 Abs[xL[0.]]}, {0.0853175}, {1.71726}, {0.380952}, {2.41667}, {1.5}} )}} )

$Stabkräfte oben: ( {{( {{5^(1/2) Abs[yL[0.]]}, {2.80698}, {1.61272}, {3.07238}, {1.24781}, {3.59368}} )}} )$

$Kräfte schräge Stäbe: ( {{( {{2.5037}, {2.9375}, {3.56323}, {4.51374}, {6.05218}, {(8 Abs[xF[5.]])/5^(1/2)}} )}} )$

$Kräfte fast senkrechte Stäbe: ( {{( {{0.502128}, {2.35362}, {2.63143}, {3.00419}, {3.53874}, {5^(1/2) Abs[xT[5.]]}} )}} )$

In[666]:=

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

Created by Mathematica (December 15, 2006)