%%**********CALCULO DE LONGITUDES****************%%

%%comandos

clc
clear
syms x y z
L = y + z
y1 = sqrt(x^2+12^2);
z1 = sqrt((30-x)^2+28^2);

L = subs(L, y ,y1);
L = subs(L, z, z1);

dLdx = diff(L);
sol = solve(dLdx==0);

%disp('El cable debe atarse a' num2str(double(sol)),...|'cm , del poste de
%12 metros'|) REVISAR TODOS LOS DISP


%************DISTANCIA MAS CORTA DE UNA FUNCIÓN A UN PUNTO*********%
ezplot 4-x^2

syms x y
y1 = 4-x^2

d = sqrt(x^2+ (y-2)^2);
d = subs(d, y, y1);
dddx = diff(d);

sol = solve(dddx==0);
p1 = subs(y1, x, sol(2));
p2 = subs(y1, x, sol(3));

%%disp('Las soluciones son' num2str(double(sol)),...

%***********HOJA DE PAPEL(PROBLEMA 3)*************%

clc
clear
syms x y

A = (x+3)+(y+2)
y1 = 24/x;

A = subs(A,y,y1);

dAdx = diff(A);
sol=solve(dAdx==0);

%%disp('las dimensiones son', num2str(double(sol(2),(3))))


%**************VOLUMEN(PROBLEMA 4)*******************%

clc
clear
syms x h

S = x^2+ 4*x*h;
h1 = solve(S==100,h)
V=x^2*h;
V = subs(V, h, h1)
dS=diff(V);
sol=solve(dS==0);