function [] = graphIU()

Resistors = [10 22 150 220 470 503 620 680 1000 1220 1500 2200 4700 5030];

Voltages1 = [0.032 0.07 0.46 0.66 1.4 1.5 1.85 2 2.9 3.5 4.15 4.6 4.9 4.9 5.1];
Voltages2 = [0.04 0.09 0.6 0.9 1.8 1.95 2.4 2.6 3.8 4.24 4.5 4.8 5 5 5.1];
Voltages3 = [0.1 0.22 1.5 2.2 4.48 4.6 4.84 4.92 5.1 5.1 5.1 5.1 5.1 5.1 5.1];

Amperages1 = [.0032 0.003181818 0.003066667 0.003 0.002978723 0.002982107 0.002983871 0.002941176 0.0029 0.002868852 0.002766667 0.002090909 0.001042553 0.000974155 0]
Amperages2 = [0.004 0.004090909 0.004 0.004090909 0.003829787 0.00387674 0.003870968 0.003823529 0.0038 0.00347541 0.003 0.002181818 0.00106383 0.000994036 0]
Amperages3 = [0.01 0.01 0.01 0.01 0.009531915 0.009145129 0.007806452 0.007235294 0.0051 0.004180328 0.0034 0.002318182 0.001085106 0.001013917 0]

Power1 = Voltages1.*Amperages1;
Power2 = Voltages2.*Amperages2;
Power3 = Voltages3.*Amperages3;

yyaxis left;
plot(Voltages1, Amperages1,'-r','LineWidth',2)
ylabel('Strom [I, Ampere]');
xlabel('Spannung [U, Volts]');
yyaxis right;
plot(Voltages1, Power1,'--r','LineWidth',2)
ylabel('Leistung [P, Watt]');
yyaxis left;
title('IU Kennlinien Solarzelle');
hold on;
plot(Voltages2, Amperages2,'-g','LineWidth',2)
yyaxis right;
plot(Voltages2, Power2,'--g','LineWidth',2)
ylabel('Leistung [P, Watt]');
yyaxis left;
hold on;
plot(Voltages3, Amperages3,'-b','LineWidth',2)
yyaxis right;
plot(Voltages3, Power3,'--b','LineWidth',2)
ylabel('Leistung [P, Watt]');
yyaxis left;
lgd = legend('LED 10W Lampe','Leuchtröhre 30W','Leuchtröhre 60W','Location','southwest')
title(lgd,'Legende')
end