D:\j_Iam_TEMP\_jh\jsp1.wxmx

kill(all);

ro_rt:13600;g:9.81;H:0.1;ro_v:1000;h:0.1;p_a:101325;

eq:p_0+ro_rt*g*H=ro_v*g*(H+h)+p_a;

solve(eq,[p_0]);

p_0_s:449727/5,numer;

p_m:0;p_vac:0;p_abs:0;

if p_0_s < p_a then p_v:p_a-p_0_s else p_m:p_a-p_0_s;

p_v;p_m;