\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
| (%i20) | kill(all); |
\[\]\[\tag{%o0} \ensuremath{\mathrm{done}}\]
| (%i6) | ro_rt:13600;g:9.81;H:0.1;ro_v:1000;h:0.1;p_a:101325; |
\[\]\[\tag{%o1} 13600\]
\[\]\[\tag{%o2} 9.81\]
\[\]\[\tag{%o3} 0.1\]
\[\]\[\tag{%o4} 1000\]
\[\]\[\tag{%o5} 0.1\]
\[\]\[\tag{%o6} 101325\]
| (%i7) | eq:p_0+ro_rt·g·H=ro_v·g·(H+h)+p_a; |
\[\]\[\tag{%o7} {p_0}\mathop{+}13341.6\mathop{=}103287.0\]
| (%i8) | solve(eq,[p_0]); |
\[\]\[rat: replaced -89945.4 by -449727/5 = -89945.4\]
\[\]\[\tag{%o8} \left[ {p_0}\mathop{=}\frac{449727}{5}\right] \]
| (%i9) | p_0_s:449727/5,numer; |
\[\]\[\tag{%o9} 89945.4\]
| (%i12) | p_m:0;p_vac:0;p_abs:0; |
\[\]\[\tag{%o10} 0\]
\[\]\[\tag{%o11} 0\]
\[\]\[\tag{%o12} 0\]
| (%i13) | if p_0_s < p_a then p_v:p_a−p_0_s else p_m:p_a−p_0_s; |
\[\]\[\tag{%o13} 11379.600000000006\]
| (%i15) | p_v;p_m; |
\[\]\[\tag{%o14} 11379.600000000006\]
\[\]\[\tag{%o15} 0\]
Created with wxMaxima.
The source of this Maxima session can be downloaded here.