clear clc syms x a=input('introducir el coeficiente de x^2: ') b=input('introducir el coeficiente de x: ') c=input('introducir el termino independiente; ') D=b^2-4*a*c E=a*x^2+b*x+c disp('que operacion desea realizar') disp('1.evaluarel discrimiate') disp('2.factorizar') disp('3.resolver la ecuacion') disp('4.graficar') disp('5.derivar la ecuacion respecto x') m=input('digite la operacion que necesite') switch m case 1 if D>0 X1=(-b+sqrt(D))/2*a X2=(-b-sqrt(D))/2*a else if D==0 x=-b/2*a disp('raices repetidas') else X1=(-b+sqrt(D))/2*a X2=(-b-sqrt(D))/2*a disp('raices complejas') end end case 2 Fact=factor(E) case 3 solve(E) case 4 fplot(E,[-3,3]) hold on grid on case 5 EX=diff(E,x) end