/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 0.8.7 ] */ /* [wxMaxima: comment start ] pulisco la memoria [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ kill ( all ) ; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] definisco equazioni di equilibrio [wxMaxima: comment end ] */ /* [wxMaxima: comment start ] equaz. equilibrio traslazione x,y,z [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ eqtx : XB = 0 ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ eqty : YA = 0 ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ eqtz : +ZB -P +ZA = 0 ; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] equaz. equilibrio rot. x,y,z attorno ad O [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ eqrxO : +CA +ZA*b -P*b = 0 ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ eqryO : +CB -ZB*a +P*a = 0 ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ eqrzO : 0 = 0; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] imposto sistema di equazioni di equilibrio, trascuro la rotazione z in quanto non indipendente dalle altre [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ eqns : [ eqtx , eqty , eqtz , eqrxO , eqryO ] ; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] definisco incognite (ZB รจ un parametro) [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ unks : [ XB, CB, YA, ZA, CA ] ; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] risolvo il sistema lineare [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ sols : linsolve( eqns , unks ) ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ [XB,CB,YA,ZA,CA] : ev ( [XB,CB,YA,ZA,CA] , sols ) ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ XB; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ kill(XB,CB,YA,ZA,CA); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ XB; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ''unks : ev ( unks , sols ) ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ XB; /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] [ pippo , pluto , paperino ] : [ 1 , ciao , miao ]; pippo; pluto; paperino; kill(pippo); pippo; [wxMaxima: comment end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$