s=1; >> while s==1 disp('calculo Volumen de Cono Truncado: Radios y angulo de corte'); disp('1: calculo Volumen de Cono Truncado: Radios y angulo de corte'); disp('2: calculo de angulo de corte dado el volumen y r,R'); disp('3: salir'); e=input('escoja una picion'); switch (e); case 1 a=input('Introducir radio interno r='); b=input('Introducir radio externo R='); al=input('introducir angulo de corte alfa='); h=(b-a)/tan(al); d=2*a; c=2*b; vol=(pi/12)*h*(c*c+c*d+d*d); disp(vol); end case 2 a=input('introducir radio interno r='); b=input('introducir radio externo R='); vol=input('introducir volumen ='); d=2*a; c=2*b; h=(vol*(pi/12))/(c*c+c*d+d*d); al=2.524669227*((b-a)/h); disp(al); end case 3 s=2; end end