\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
| (%i1) | 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_v·g·(H+h)=ro_rt·g·H+p_a; |
\[\]\[\tag{%o7} {p_0}\mathop{+}1962.0\mathop{=}114666.6\]
| (%i8) | solve(eq,[p_0]); |
\[\]\[rat: replaced -112704.6 by -563523/5 = -112704.6\]
\[\]\[\tag{%o8} \left[ {p_0}\mathop{=}\frac{563523}{5}\right] \]
| (%i9) | p_0_s:563523/5,numer; |
\[\]\[\tag{%o9} 112704.6\]
| (%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_0_s−p_a; |
\[\]\[\tag{%o13} 11379.600000000006\]
| (%i15) | p_v;p_m; |
\[\]\[\tag{%o14} {p_v}\]
\[\]\[\tag{%o15} 11379.600000000006\]
Created with wxMaxima.
The source of this Maxima session can be downloaded here.