Eu, André Gonçalves Coutinho, junto com minha equipe Marcio Cerqueira Lima, Wilian de Castro S. Mendonça, Danilo Lopes, residente em Cataguases, estudantes de Engenharia de Produção fizemos um programa relacionado a polinômio.

Executa essas funções:calcula as raízes, a soma, a subtração, a multiplicação, a divisão, calculo em um ponto, calcula a derivada, calcula a derivada em um ponto, plota gráficos em 2D e em 3D.

• Download thoso.m
• Enviar nova versão

Esconder código-fonte

% o mundo do polinomio
P=input('digite o polinomio com espaços entre as variáveis entre colchetes');
disp('calculo da raiz digite 1');
disp('calculo em um ponto digite 2');
disp('calculo da derivada digite 3');
disp('calculo da soma dos polinomios digite 4');
disp('calculo da subtração dos polinomios digite 5');
disp('calculo da multiplicação dos polinomios digite 6');
disp('calculo da divisão dos polinomios digite 7');
disp('plotar grafico do polinomio no ponto em 2D digite 8');
disp('plotar gráfico do polinomio em 3D digite 9');
disp('calculo da derivada em um ponto digite 10');
n=input('digite o numero que você quer');
switch n;
case(1);
s=roots(P);
disp(s);
case(2);
i=input('digite o ponto');
a=polyval(P,i);
disp(a);
case(3);
b=polyder(P);
disp(b);
case(4);
E=input('digite o polinomio vê se o grau é o mesmo caso não seja têm que igualar com zeros');
f=P+E
disp(f);
case(5);
G=input('digite o polinomio vê se o grau é o mesmo caso não seja têm que igualar com zeros');
h=P-G
disp(h);
case(6);
I=input('digite o polinomio');
j=conv(P,I);
disp(j);
case(7);
L=input('digite o polinomio que tenha grau <= ao primeiro');
[q,r]=deconv(P,L);
disp([q,r]);
case(8)
x1=input('digite o intervalo menor');
x2=input('digite o incremento');
x3=input('digite o intervalo maior');
x=(x1:x2:x3);
plot(x,polyval(P,x));
case(9);
x1=input('digite o intervalo menor');
x2=input('digite o incremento');
x3=input('digite o intervalo maior');
x=(x1:x2:x3);
y1=input('digite o intervalo menor');
y2=input('digite o incremento');
y3=input('digite o intervalo maior');
y=(y1:y2:y3);
[mx,my]=meshgrid(x,y);
mz=mx.^2+my.^2
mesh(mx,my,mz);
case(10);
c=input('digite o ponto que você quer');
d=polyval(polyder(P),c);
disp(d);
end

Script em Tcl para descompactar arquivos

Script em Tcl para descompactar arquivos

Crivo de Eratóstenes Simples em Tcl (sem Tk)

tkFind

Visualizador de imagem