>
restart;
Nejprve definujeme použitou stavovou rovnici
>
z:=1+B*p/(R*T);
a vyjádříme z ní virální koeficient
>
Vm:=solve(z=p*Vm/(R*T),Vm);
Derivací pak zjistíme vztah pro stačitelnost
>
kappa:=-diff(ln(Vm),p);
Tento vztah pak můžeme dále zjednodušit
>
kappa:=factor(kappa);
>