summaryrefslogtreecommitdiff
path: root/1223/CH8/EX8.9/Ex8_9.sce
blob: f202b7fa09d42d25bf8caa2b9e32923852a08e12 (plain)
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
clear;
clc;
//Example 8.9
Iso=3*10^-14;
Isq=10^-13;
b=75;
Vt=0.026;
Rl=8;
P=5;
Vp=sqrt(2*Rl*P);
printf('\npeak voltage Vp=%.2f V\n',Vp)
Vcc=Vp/0.8;
printf('\nsupply voltage=%.2f V\n',Vcc)
Ien=Vp/Rl;
printf('\nemitter current=%.3f A\n',Ien)
Ibn=Ien/(1+b);
Ibn=Ibn*1000;//mA
printf('\nbase current=%.2f mA\n',Ibn)
iD=0.020;
Vbb=2*Vt*log(iD/Iso);
printf('\nVbb=%.2f V\n',Vbb)
Icq=Isq*exp((Vbb/2)/Vt);
Icq=Icq*1000;//mA
printf('\nquiescent collector current=%.3f mA\n',Icq)
Ibias=20;//mA
iD=Ibias-Ibn;
printf('\ndrain current=%.3f mA\n',iD)
iD=iD*0.001;//A
Vbb=2*Vt*log(iD/Iso);
printf('\nVbb=%.2f V\n',Vbb)
Icn=1.12;
Vben=Vt*log(Icn/Isq);
printf('\nB-E voltage of Qn=%.2f V\n',Vben)
Vebp=Vbb-Vben;
printf('\nemitter base voltage of Qp=%.2f V\n',Vebp)
Icp=Isq*exp(Vebp/Vt);
Icp=Icp*1000;//mA
printf('\nIcp=%f mA\n',Icp)