D:\j_Iam_TEMP\_jh\_jh_ex2b_3a_test.wxmx

kill(all);

B:3;H:2;Hmn:1;ya:9800;

Fx(h):=sqrt(h);

S:integrate(Fx(h),h);mS:integrate(Fx(h)*(Fx(h)/2),h);

S(h):=((2*h^(3/2))/3);

x_C(h):=(h^2/4)/((2*h^(3/2))/3);

https://maxima.sourceforge.io/ru/maxima-tarnavsky-3.html

rat((h^2/4)/((2*h^(3/2))/3));

x_C_t(h):=(3*sqrt(h))/8;

x_C_1:x_C_t(1),numer;x_C(2),numer;

P1:S(1)*B*ya;

P2:1*1*B*ya;

P:P1+P2;

x:(x_C_1*P1+0.5*P2)/(P);

x_C_test:%;x_C_test;

P-z OK!

h_C_:H-Hmn/2;P:ya*h_C_*B*Hmn;

I:(Hmn**3*B)/12,numer;

h_D_test:h_C_+(I)/(h_C_*Hmn*B);H-h_D_test;

P_x; h_D  - OK!