该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
clear all
n=input(*摩尔数*);
p(1)=input(*压强*);
v(1)=input(*体积*);
R=8.314;
r=1.4;
t(1)=p(1)*v(1)/(n*R);
pplot=p(1);
vplot=v(1);
wTotal=0;
i=1;
N=50;
QuitType=5;
PathType=0;
while (PathType~=QuitType)
i=i+1;
fprintf(*对过程%g\n*,i-1);
PathType=menu(sprintf(*过程 %g:选择下一路径*,i-1),*等压*,*等体*,*等温*,*绝热*,*退出*);
switch PathType
case 1
v(i)=input(*体积 等压*);
p(i)=p(i-1);
t(i)=p(i)*v(i)/(n*R);
w=p(i)*(v(i)-v(i-1));
vplot=[vplot v(i)];
pplot=[pplot p(i)];
case 2
p(i)=input(*压强 等体*);
v(i)=v(i-1);
t(i)=p(i)*v(i)/(n*R);
w=0;
vplot=[vplot v(i)];
pplot