summaryrefslogtreecommitdiff
path: root/377/CH9/EX9.11/9_11.sce
blob: 0da234704af190a097330f725821b7c4d22b7808 (plain)
1
2
3
4
5
6
7
8
9
10
11
disp("Is=A*R*T*exp(-q*Va/(K*T))");
A=10^-3;
R=110;
T=300;
Va=0.67;
Va1=0.3;
a=0.026;  //say a=K*T/q
Is=A*R*T*exp(-Va/a)*10^8;
printf('\n The value of Is is %f*10^-8 A',Is*10^2);
I=Is*exp(-Va1/a)*10^7;
printf('\n The value of I is %f*10^-3 A',I);