\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
| (%i1) | kill(all); |
\[\]\[\tag{%o0} \ensuremath{\mathrm{done}}\]
| (%i4) | B:3;H:2;Hmn:1;ya:9800; |
\[\]\[\tag{%o1} 3\]
\[\]\[\tag{%o2} 2\]
\[\]\[\tag{%o3} 1\]
\[\]\[\tag{%o4} 9800\]
| (%i5) | Fx(h):=sqrt(h); |
\[\]\[\tag{%o5} \mathop{Fx}(h)\mathop{:=}\sqrt{h}\]
| (%i7) | S:integrate(Fx(h),h);mS:integrate(Fx(h)·(Fx(h)/2),h); |
\[\]\[\tag{%o6} \frac{2 {{h}^{\frac{3}{2}}}}{3}\]
\[\]\[\tag{%o7} \frac{{{h}^{2}}}{4}\]
| (%i8) | S(h):=((2·h^(3/2))/3); |
\[\]\[\tag{%o8} \mathop{S}(h)\mathop{:=}\frac{2 {{h}^{\frac{3}{2}}}}{3}\]
| (%i9) | x_C(h):=(h^2/4)/((2·h^(3/2))/3); |
\[\]\[\tag{%o9} \mathop{x\_ C}(h)\mathop{:=}\frac{\frac{{{h}^{2}}}{4}}{\frac{2 {{h}^{\frac{3}{2}}}}{3}}\]
| (%i10) | rat((h^2/4)/((2·h^(3/2))/3)); |
\[\]\[\tag{%o10)/R} \frac{3 \sqrt{h}}{8}\]
| (%i11) | x_C_t(h):=(3·sqrt(h))/8; |
\[\]\[\tag{%o11} \mathop{x\_ C\_ t}(h)\mathop{:=}\frac{3 \sqrt{h}}{8}\]
| (%i13) | x_C_1:x_C_t(1),numer;x_C(2),numer; |
\[\]\[\tag{%o12} 0.375\]
\[\]\[\tag{%o13} 0.5303300858899105\]
| (%i14) | P1:S(1)·B·ya; |
\[\]\[\tag{%o14} 19600\]
| (%i15) | P2:1·1·B·ya; |
\[\]\[\tag{%o15} 29400\]
| (%i16) | P:P1+P2; |
\[\]\[\tag{%o16} 49000\]
| (%i17) | x:(x_C_1·P1+0.5·P2)/(P); |
\[\]\[\tag{%o17} 0.45\]
| (%i20) | x_C_test:%;x_C_test; |
\[\]\[\tag{%o19} 0.45\]
\[\]\[\tag{%o20} 0.45\]
| (%i23) | h_C_:H−Hmn/2;P:ya·h_C_·B·Hmn; |
\[\]\[\tag{%o22} \frac{3}{2}\]
\[\]\[\tag{%o23} 44100\]
| (%i25) | I:(Hmn··3·B)/12,numer; |
\[\]\[\tag{%o25} 0.25\]
| (%i28) | h_D_test:h_C_+(I)/(h_C_·Hmn·B);H−h_D_test; |
\[\]\[\tag{%o27} 1.5555555555555556\]
\[\]\[\tag{%o28} 0.4444444444444444\]
Created with wxMaxima.
The source of this Maxima session can be downloaded here.