Equação 2º scilab

clear; clc; mprintf("\n ====== Equação de 2º grau ====== \n ");

a=input("valor diferente de 0 para a:");

if a == 0 then mprintf("\n Valor de a tem ser diferente de 0. \n Fim do programa. "); else b=input("entre com o valor de b:"); c=input("entre com o valor de c:");

delta = b^2 - 4 * a * c; mprintf("\n delta eh = %g", delta); if delta < 0 then mprintf("\n Delta menor que 0 não tem ponto com eixo Ox "); Vx = -b/2 * a Vy = - delta / 4 * a mprintf("\n \nVertice da parabola ");

mprintf("\n Vx= %g", Vx); mprintf("\n Vy= %g", Vy); else

x1 = (-b + sqrt(delta)) / (2*a); x2 = (-b - sqrt(delta)) / (2*a);

Vx = -b/2 * a Vy = - delta / 4 * a mprintf("\n\nValor(es) de x "); mprintf("\n x1= %g" ,x1); mprintf("\n x2= %g" ,x2);

mprintf("\n \n Vertice da parabola");

mprintf("\n Vx= %g", Vx); mprintf("\n Vy= %g", Vy);

end end //Daqui para baixo serao outros programas

clc; clear; //
// Prof. Leônidas
// 2002
// como quebrar uma janela gráfica em várias

// Uso do comando "xsetech" para dividir uma janela gráfica (jg) em 4 xbasc(); // limpar área de desenho

// 1. primeiro usamos xsetech para dividir jg em duas partes
// xsetech é usado para arrumar primeira "sub-janela" e a escala xsetech([0,0,1.0,0.5],[-5,-3,5,3]); // 2. agora chamamos plot2d com opção "001" para usar escala def. por xsetech plot2d((1:10)',(1:10)',1,"001",' ');

// 3. xsetech é usado para arrumar segunda janela xsetech([0,0.5,1.0,0.5]); // 4. a escala gráf. "default" é definida pelo xsetech para [0,0,1,1]
// e troca-a com o uso do argumento "rect" no plot2d plot2d((1:10)',(1:10)',1,"011",' ',[-6,-6,6,6]);
// ^ ^
// | + limites p/ x e y
// + c/