pulisco la memoria

kill(all);

definisco (per assegnazione) il momento flettente sui tratti AB e BC

MfAB : R*s ;
MfBC : R*(b+s)-P*s ;

UAB : integrate( MfAB^2/2/E/J ,  s , 0 , b );

UBC : integrate ( MfBC^2/2/E/J , s, 0, a );

U : UAB + UBC ;

expand( U );