Hola, la parte b del ejercicio 3 no me sale, lo que escribí:
clc,clear,close
TC=405.5; %K
PC=111.3; %atm
R=0.082; % Latm/molk
T=450; %K
Pred=[0:1:10];
function y=volumen(V)
TC=405.5; %K
PC=111.3; %atm
R=0.082; % Latm/molk
T=450; %K
Pred=[0:1:10];
P=PC*Pred;
a=(27/64)*(((R^2)*(TC^2))/PC);
b=(R*TC)/(8*PC);
y=((P+(a/(V^2)))*(V-b)-R*T);
endfunction
P=PC*Pred;
w=fsolve(@(w) volumen(w),0.5)
z=(P*w)/(R*T);
plot(z,Pred,'*b');
ylabel('Preducida(atm)')
xlabel('z')
title('Ej3b')
Me devuelve un v que es un valor en vez de un vector dado los distintos valores de P, no se como hacer para definir a v como un vector.