%%de 1 a 10 A%%
I1=[0.74 1.21 1.95 3.02 4 5.19 6.11 7.03 7.8 9.03];
E1=[15.18 26.09 43.27 68.1 87.1 107 120 130.4 137.2 146.3]; 
Intervalo=[0.74:0.01:9.03];
p=trazadornatural(I1,E1,Intervalo);
hold on;
grid on;
plot(I1,E1,'o');
plot(Intervalo,p,'g');
clear all;
%%de 10 a 1 A%%
I2=[0.98 1.66 2.32 3.02 3.92 5.18 5.94 6.65 7.71 8.94];
E2=[25 40.6 55.5 70.4 87.9 109.1 119.8 127.6 137.2 144.5]; 
Intervalo=[.98:0.01:8.94];
p=trazadornatural(I2,E2,Intervalo);
hold on;
grid on;
plot(I2,E2,'o');
plot(Intervalo,p,'r');
xlabel('Io[A]','FontSize',12);
ylabel('Eo[V]','FontSize',12);