file: D:\_jk123org\MAXIMA\ jsf12a.wxmx  

kill(all);

ro:1000;g:9.81;H:1.2;B:0.8;h1:0.4;

H+h1;

h_C:(H/2)+h1;

p_C:ro*g*h_C;

w:B*H;

P:p_C*w;

I:(B*(H**3))/12;

h_D:h_C+(I)/(h_C*w);

h_D_d:H+h1-h_D;

# jsf11.wxmx 

kill(all);

ro:1000;g:9.81;H:1.2;B:0.8;

h_C:(H/2);

p_C:ro*g*h_C;

w:B*H;

P:p_C*w;

I:(B*(H**3))/12;

h_D:h_C+(I)/(h_C*w);

h_D_d:H-h_D;