Matlab - Potencia Optica con 2 plots

   
Vista:

Potencia Optica con 2 plots

Publicado por Julio (2 intervenciones) el 16/08/2013 18:41:39
Profesor, le incluí al script un plot más y me sale error.

_______________________________________________________________

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
%Potencia interna generada en el dispositivo LED
clear all;
close all;
tuo_r = input('Enter the radiative recombination time in nano seconds: ');
tuo_nr = input('Enter the non-radiative recombination time in nano seconds: ');
C = input('Enter the velocity of light in free space: ');
%ppp
h = input('Enter the value of Planks constant: ');
q = input('Enter the value of charge of one electron: ');
I = input('Enter the value of Drive current in Amperes: ');
Etta_internal = 1/(1+(tuo_r/tuo_nr));
%Pot. Opt. vs. Long. Onda
n=1;
for Lambda=800:50:1600
	Pinternal= Etta_internal*(h*C/q)*(I/(Lambda*(10^(-9))));
	PO= Pinternal*1000;
	Pot(n)=PO;
	n=n+1;
	fprintf('Pot. Ópt. entreg. LED en mW. para %d nm. = %f\n ',Lambda, PO);
end
Lambda=800:50:1600;
figure(1)
plot(Lambda,Pot,'b--','linewidth',3);
title('POTENCIA INTERNA GENERADA EN EL DISPOSITIVO LED');
xlabel('Longitud de Onda (nm.)');
ylabel('Potencia Óptica (mW.)');
grid;
legend('CURVA Long. Onda vs. Pot. Ópt.');
 
%Pot. Opt. vs. Corr. Eléctr.
Long = input('Ingrese la Long. Onda en nm.: ');
m=1;
for Int=20:5:50
	Pinternal= Etta_internal*(h*C/q)*(Int*(10^(-3))/(Long*(10^(-9))));
	PO= Pinternal*1000;
	Pot(m)=PO;
	m=m+1;
	fprintf('Pot. Ópt. entreg. LED en mW. para %d Amp. = %f\n ',Int, PO);
end
Int=20:5:50;
figure(2)
plot(Int,Pot,'r--','linewidth',3);
title('POTENCIA INTERNA GENERADA EN EL DISPOSITIVO LED');
xlabel('Corriente Eléctrica (Amp.)');
ylabel('Potencia Óptica (mW.)');
grid;
legend('CURVA Corr. Eléctr. vs. Pot. Ópt.');


-----------------------------------------------------------------------------------------

La primera vez se ingresan los sgtes datos:

Radiative recombination time: 25
Non-radiative recombination time: 90
Velocity of light in free space: 3e08
Planks constant: 6.624e-34
Charge of one electron: 1.602e-19
Drive current: 35e-03

La segunda vez se ingresa cualquier número entre 800 y 1600, con 900 debería salir una buena curva. Gracias por su apoyo y cuando nos podríamos ver.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder