Kraftvektoren überschreiben:

In[616]:=

kraftO[az+1]={-1,-3};

In[617]:=

kraftU[az+1]={2,1};

In[618]:=

(* Willst du z.B. die untere Kraft Nummer 3 kraftU[3] mit (1,-2) überschreiben, so füge nachstehend ohne Anführungszeichen "kraftU[3]={1,-2};" ein. *)

In[619]:=

inpQKraft=Input["Neue Kräfte rechts eingeben? Ja ==> input 1, Nein ==> input 0 !!!!"];
If[inpQKraft==1,
Print["Yes = ", inpQKraft];
kraftO[az+1]  = Input["Kraft rechts oben eingeben, z.B. {-1,-3} "];  
kraftU[az+1]  = Input["Kraft rechts unten eingeben, z.B. {2,1} "],
inpQKraft = 0; Print["No = ", inpQKraft]; Print["Kräfte o.k."]];
Print["Kraft rechts oben = ", kraftO[az+1]];
Print["Kraft rechts unten = ", kraftU[az+1]];

Created by Mathematica  (December 15, 2006)