/* [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 grandezze ausiliarie
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
ipo : [ l = sqrt(a^2 + b^2) ];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l_OA : a  $
l_OB : b  $
L_AB : l  $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
funzioni di forma per interpolare i valori estremali
linermente sui tratti
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
N1 : 1-xi $
N2 : xi   $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
xi : s/l e* una ascissa curvilinea adimensionalizzata

nel caso di integrazione lungo i tratti,
ds = l * dxi
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
inserisco caratteristiche di sollecitazione tratto per tratto
in funzione di P, CO, CA, CB
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
               |-- P --|---- CB ----|---- CA ----|---- CO ----|
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
N_OB  : 0  +P*b/a           +0        +CA/a        -CO/a$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
N_OA  : 0      +P        +CB/b           +0        -CO/b$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
N_AB  : 0  -P*l/a    -CB*a/b/l    -CA*b/a/l    +CO*l/a/b$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Mf_OB : 0      +0 +0*N1 +CB*N2           +0  +CO*N1+0*N2$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Mf_OA : 0      +0           +0  +0*N1+CA*N2  +CO*N1+0*N2$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Mf_AB : 0      +0 +0*N1 +CB*N2  +CA*N1+0*N2           +0$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
T_OB  : 0      +0        +CB/b           +0        -CO/b$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
T_OA  : 0      +0           +0        -CA/a        +CO/a$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
T_AB  : 0      +0        -CB/l        +CA/l           +0$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$