Hans

Problema 4a:

D=input('Ingresar el valor diametro');
L=input('Ingresar el valor de la longitud');
r=input('Ingresar elvalor de la rugosidad');
Q=input('Ingresar el valor del flujo del liquido');
u=input('Ingresar la viscosidad delliquido');
P0=input('Ingresar la presion inicial del liquido');
d=input('Ingresar la densidad del liquido');
Pi=3.1416V=4*Q/(pi*D^2);
Re=d*V*D/u
if Re<4000
f=64/Re
else
e=0.12;
emin=0.002;
f=64/Re
while emin<ef1=(-2*log10(r/(3.7*D)+2.51/(Re*f^(0.5))/2.3^(-2);
e=abs(f1-f);
f=f1
end
end
P1=P0 -d*f*(L*V^2/(2*D);
fprintf('La altura del tanque es%0.4f.\n',V);

Problema 2a:

h=input ('ingresar la altura:');
L=input ('ingresar la longitud:');
r=input ('ingresar elradio:');
X=(h-r)/r; 
alpha=asin(X);
V=L*(r^2)*(3.1416 +sin(2*alpha)+2*alpha)/2;
fprintf('El volumen del tanque es%0.4f.\n',V);

Problema 2b:

V=input ('Ingresar el valor del volumen');
L=input ('Ingresar el valor de la longitud');r=input ('Ingresar el valor del radio');
alpha0=2
e=0.1;
emin=0.001;
while emin<e
alpha1=2*V/((L*r^2)-3.1416-sin(alpha0))/2;
e=abs(alpha1-alpha0);
alpha0=alpha1;
end;
x=asin(alpha);
h=x*r+r;
fprintf('La altura del tanque es %0.4f.\n',V);