clear all
clc
%%% Dominio da funcao
t = -4:0.01:4;
%t1=linspace(0,1,100);
%t=linspace(-4,4,100);
%t2=linspace(1,2,100);

%%% FUNCAO %%%

%y = t1.^2;
%z = sin(t2);
%y = sqrt(t.^2+1); 
%y = exp(t);
%y = sin(1./t.^2);
%y = t.*sin(1./t.^2);
%y = 1./t;
%y = 1./(t.^3 - 9*t + 3);
%y = t.^3 - 9*t + 3;             %%%   funcao 1   %%%
%y = t.^2 + t - 6;               %%%   funcao 2   %%%
%y = exp(-t.^2) - cos(t);        %%%   funcao 3   %%%
%z = -2*t.*exp(-t.^2) + sin(t);  %%%   derivada de funcao 3   %%%
%y = t.^3 - t - 1;               %%%   funcao 4   %%%
%y = 4*sin(t) - exp(t);          %%%   funcao 5   %%%
%y = t.*log10(t) - 1;            %%%   funcao 6   %%%
%y = t.^2 - 5*t + 5;             %%%   funcao 7   %%%
%y = t.^2 - 4*t + 2;             %%%   funcao 8   %%%
%y = t.^2 - 10*t + 23;           %%%   funcao 9   %%%
%y = t.^4 - 3*t.^2 + t + 1;           
%y = 4*t.^3 - 6*t + 1;           
%y = t.^3 + 6*t.^2 + 9*t - 6;
%y = 3*t.^4 + t.^2 + 5*t - 7;  
%y = 12*t.^3 + 2*t + 5;  
%y = 2.^t - 4*t;
%y = t.^2 - 2;
%y = t.^4 - 3*t.^2 + 1;           
%y = 91 - 75*t + 17*t.^2 - t.^3;  
%y = -4.5*t.^2 + 8.91*t + 1;
%z = -4.5*t.^2 + 9*t + 0.91;
%y = 3*t.^2 - 6*t + 8.5;
%y = -0.17*t.^2 + 0.29*t;
%y = 0.18*t.^2 - 0.04*t - 0.14;
%y = t.^2 - t;
%y = -6.1*t.^2 + 5.95*t + 0.15;
%y = 5;
%y = exp(-12*t.^2)/144;
%y = cos(t.^2 + 3);
%y = sin(t.^3 + 2);
%y = (3*t.^3)./(exp(t)-1);
%y = exp(-t).*t.^(2/3);
%y = 0.9 - (1+t+0.5*t.^2).*exp(-t);
%%% GRAFICO %%%
%if(t<=0.5)
%  y=2;
%else
%  y=3;
%y = -t.^3 - t.^2 + 3*t + 1;
%y = -2*t.^3 - 3*t.^2 + 6*t + 3;
%y = 1./t + 1./t.^2;
y = exp(-t.^2./2);
%end
plot(t,y)
%plot(t,y,'r',t,z,'g')
%plot(t,y,'+',t,z,'o')
%plot(t1,y,t2,z)
grid