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 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
|
clear all;
clc,close all;
e = 1.6E-19;
E0 = 8.85E-12;
me = 9.11E-31;
c = 3E8;
h = 6.63E-34;
kb = 1.38E-23;
kb2 = kb/1.6E-19;
l = 546E-9;
n0 = 7E25 ;
a = 10;
b = 3;
w = 0.22;
tmid = 3700;
t0 = 8350;
twall = 1230;
T=8500;
E1=4.67; E2=4.89;E3=5.46;
E4=6.7;
E5=7.73;
E6=7.93;
E7=8.54; E8=9.77;
E9=8.61; E10=8.64; E11=8.83;
format long e;
for R=0:5:1000
t = tmid - (tmid - twall)*(R/1000)^a + (t0 - tmid)*exp(-(((R/1000)^b)/(w^b)));
mRt(R/5+1,:) = [R/1000 t];
S1=3*(exp(-(E1/(kb2*t))));
S2=3*(exp(-(E2/(kb2*t))));
S3=3*(exp(-(E3/(kb2*t))));
S5=3*(exp(-(E5/(kb2*t))));
S4=(exp(-(E4/(kb2*t))));
S6=(exp(-(E6/(kb2*t))));
S7=2*(exp(-(E7/(kb2*t))));
S8=2*(exp(-(E8/(kb2*t))));
S9=3*(exp(-(E9/(kb2*t))));
S10=3*(exp(-(E10/(kb2*t))));
S11=3*(exp(-(E11/(kb2*t))));
S123= S1+S2+S3;
Si= S1+S2+S3+S4+S5+S6+S7+S8+S9+S10+S11;
Ni = n0*(exp(-(E1)/(kb2*t)))/Si;
mRNi(R/5+1,:)=[R/1000 Ni];
for la=540:10:560
B = ((2*h*c^2)/((la*1E-9)^5))*(1/(exp((h*c)/((la*1E-9)*kb*t))-1));
mRB(R/5+1,:) = [R/1000 B];
Blu = ((la/1E9)^3)*(4.87E7)/(8*pi*h);
mRBlu(R/5+1,:) = [R/1000 Blu]
Flu = (4*E0*h*c*me)/(e^2)*((la/1E9)^2)*(4.87E7)/(8*pi*h);
mRFlu(R/5+1,:) = [R/1000 Flu];
P = (1/2)*(((0.3*n0^2)/(20E-9)^2)^(1/2))*exp(-(pi*(0.3*n0^2))/(4*20E-9));
Kline = ((e^2)*Flu*1E-14*n0)/(4*E0*me*c);
mRKline(R/5+1,:) = [R/1000 Kline];
L = B*Kline;
mRL(R/5+1,:) = [R/1000 L];
end
end
figure(1);
subplot(3,3,1);plot(mRt(:,1),mRt(:,2), 'b-');title('T');
subplot(3,3,2);plot(mRNi(:,1),mRNi(:,2));title('Ni');
subplot(3,3,3);plot(mRBlu(:,1),mRBlu(:,2));title('Blu');
subplot(3,3,4);plot(mRFlu(:,1),mRFlu(:,2));title('Flu');
subplot(3,3,5);plot(mRKline(:,1),mRKline(:,2));title('Kline');
subplot(3,3,6);plot(mRB(:,1),mRB(:,2));title('B');
subplot(3,3,7);plot(mRL(:,1),mRL(:,2));title('L'); |