/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 13.04.2 ] */ /* [wxMaxima: comment start ] Datos principales [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ a: 4.2; h: 12; ps: 0.5; pHA: 23; ph: 100; mu:0.25; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ Sv: 3*a*h$ Sh: a*a*cos(%pi/6)/2$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ Pvh: (Sv+Sh)*ps$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ SCmin: Pvh / ph$ LCmin: sqrt(SCmin)$ float( [SCmin,LCmin] ); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] PT(canto,lado) da el peso total incluyendo una cimentación de base cuadrada [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ PT(CC,LC):= (Pvh+CC*LC*LC*pHA)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ rea_perimeter: Sh*ps/3/a$ float(%); /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] Viento [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ VS: a*h*.4$ float(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ VBmax: a*h*.8$ float(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ RV0: VBmax + 2 *VS*cos(%pi/3)$ float(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ VB60: 0.2*a*h$ float(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ radexpand:true; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ RV60: [VB60,0] + [-VB60*cos(%pi/3),VB60*sin(%pi/3)] +[VS*cos(%pi/3),VS*sin(%pi/3)]$ mRV60: sqrt( RV60[1]*RV60[1]+RV60[2]*RV60[2])$ aRV60: atan( RV60[2]/RV60[1])$ float( [RV60,mRV60 , aRV60*180/%pi] ); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ VB45: 0.5*a*h$ float(%); is( VB45