>
restart;
Neprve provedeme výpočet pro ideální plyn
>
R:=8.314;
>
T:=325+273.15;
>
Vm:=0.34*10^(-3);
>
p:=R*T/Vm;
Dále použijeme van der Waalsovu stavovou rovnici
>
restart;
>
p:=R*T/(Vm-b)-a/Vm^2;
Pro určení konstant nejprve vypočteme první dvě derivace tlaku podle objemu
>
d1:=diff(p,Vm);
>
d2:=diff(d1,Vm);
V kritickém bodě platí následující tři rovnice: 1. a 2. derivace jsou nulové a tlak je roven kritickému tlaku
>
r1:=subs(Vm=Vc,T=Tc,d1=0);
>
r2:=subs(Vm=Vc,T=Tc,d2=0);
>
r3:=subs(Vm=Vc,T=Tc,p=pc);
Konstanty stavové rovnice a kritický objem dostaneme řešením soustavy předchozích tří rovnic
>
reseni:=solve({r1,r2,r3},{a,b,Vc});
a provedeme tedy jejich dosazení
>
assign(reseni);
Nyní již mužeme z kritických veličin konstanty vypočítat
>
R:=8.314;
>
Tc:=405.5;
>
pc:=11.35*10^6;
>
evalf(a);
>
evalf(b);
Dosazením molárního objemu a teploty pak získáme požadovaný tlak
>
T:=325+273.15;
>
Vm:=0.34*10^(-3);
>
p;
Analogicky můžeme postupovat pro Redlichovu-Kwongovu rovnici
>
restart;
>
p:=R*T/(Vm-b)-a/(sqrt(T)*Vm*(Vm+b));
Pro určení konstant opět vypočteme první dvě derivace tlaku podle objemu
>
d1:=diff(p,Vm);
>
d2:=diff(d1,Vm);
V kritickém bodě platí následující tři rovnice: 1. a 2. derivace jsou nulové a tlak je roven kritickému tlaku
>
r1:=subs(Vm=Vc,T=Tc,d1=0);
>
r2:=subs(Vm=Vc,T=Tc,d2=0);
>
r3:=subs(Vm=Vc,T=Tc,p=pc);
Nyní se pokusíme nalézt řešení
>
reseni:=solve({r1,r2,r3},{a,b,Vc});
Je vidět, že tentokrát soustava vede ke kubické rovnici, která má obecně tři řešení.
>
allvalues(reseni);
Pouze první řešení je fyzikálně opodstatněné (neobsahuje komplexní čísla). Provedeme tedy jeho dosazení
>
assign(%[1]);
a vyčíslime vyjádření konstant pomocí kritických veličin
>
evalf(a);
>
evalf(b);
Na závěr opět určíme jejich hodnoty
>
R:=8.314;
>
Tc:=405.5;
>
pc:=11.35*10^6;
>
evalf(a);
>
evalf(b);
a osazením molárního objemu a teploty získáme požadovaný tlak
>
T:=325+273.15;
>
Vm:=0.34*10^(-3);
>
evalf(p);
>