% problema1.m
% Sistema de transmisión de fuerzas neumático
clc
clear all
k=0.1;       % Constante
A0=0.1;      % Area Inferior
Z0=0;        % Nivel Inferior
A1=1.25;     % Area Superior
F1=5000;     % Fuerza Superior Ton
P1=F1/A1    % Presión Superior Ton/m2
Z1=200;      % Nivel Superior
P0=((2*(P1^0.5)+k*(Z1-Z0))/2)^2 % Presión Inferior
F0=P0*A0    % Fuerza Inferior
% Este sistema permite multiplicar la fuerza
% mediante la aplicacion de la ecuacion de Euler
% Resultados:
%   P1 =   4000
%   P0 =   5.3649e+03
%   F0 =  536.4911

% problema2.m
clc
clear all
PEagua=1000;     % Peso Especifico del agua
PEaceite=900;	% Peso Especifico del aceite
H=0.90;          % Desnivel de Agua
Pab=H*(PEagua-PEaceite)     % Diferencia de presiones Pa-Pb
% Escribirla en función de H y los pesos específicos
fprintf('Pab=%10.3fKg/m^2 \n',Pab)
fprintf('Pab=%6.2fN/m^2 \n',Pab*9.81)
% Resultados:
%   Pab =   90
%   Pab =    90.000Kg/m^2
%   Pab =    882.90N/m^2