Default: Kraft = 0, Aussenkraft bei p3 = { -1, -1 }

In[610]:=

kraftU[k_]:={0,0};
kraftO[k_]:={0,0};
kraftO[az+1]={-1,-1};
tabKraftU:=Prepend[Table[{k,kraftU[k]},{k,0,az+1}],{"Nummer","Kraft unten"}];
tabKraftO:=Prepend[Table[{k,kraftO[k]},{k,0,az+1}],{"Nummer","Kraft oben"}];


tabKraft:=Join[tabKraftU,tabKraftO];  tabKraft//MatrixForm

Out[615]//MatrixForm=

Created by Mathematica  (December 15, 2006)