13 files changed, 229 insertions, 0 deletions
diff --git a/2075/CH5/EX5.1/pe5_1.sce b/2075/CH5/EX5.1/pe5_1.sce
new file mode 100755
index 000000000..f91aad343
--- /dev/null
+++ b/2075/CH5/EX5.1/pe5_1.sce
@@ -0,0 +1,13 @@
+//example 5.1
+clc; funcprot(0);
+clf()
+//initialization of variable
+Vth=3.6;
+Vgs=4;//voltage
+//volt change beyond 3.6 causes a major increase in Id as it is cut off voltage
+printf('Id=0 from 0 to 2 so not shown in the graph')
+x=linspace(2,3.6,300);
+y=(-2.5*(x-3.6))^.5;
+plot(x,y)
+xtitle('Vgs vs Id','Vgs','Id');
+clear()
diff --git a/2075/CH5/EX5.10/pe5_10.sce b/2075/CH5/EX5.10/pe5_10.sce
new file mode 100755
index 000000000..039e91510
--- /dev/null
+++ b/2075/CH5/EX5.10/pe5_10.sce
@@ -0,0 +1,21 @@
+//example 5.10
+clc; funcprot(0);
+// Initialization of Variable
+G=6.4;//A/V
+I=5;//current
+Pq=9.8;//W
+Tj=140;
+Ta=40;
+//calculation
+R=2/G;
+disp(R,"resistance in ohm:")
+printf('thus pick a .33ohm rsistance')
+R=.33;
+Im=I/3;
+Vr=Im*R;
+disp(Vr,"voltage in V:")
+P=Vr*Im/4;
+disp(P,"power in W:")
+Qs=(Tj-Ta)/Pq-2.1;
+disp(Qs,"thermal resistance in degreeC/W")
+clear()
diff --git a/2075/CH5/EX5.11/pe5_11.sce b/2075/CH5/EX5.11/pe5_11.sce
new file mode 100755
index 000000000..4083bbef0
--- /dev/null
+++ b/2075/CH5/EX5.11/pe5_11.sce
@@ -0,0 +1,9 @@
+//example 5.11
+clc; funcprot(0);
+// Initialization of Variable
+P=200;//power
+R=8;//ohm
+//calculation
+Il=(P/R)^.5*2^.5;
+Ilm=1.2*Il;
+disp(Ilm,"limit level current in A:")
diff --git a/2075/CH5/EX5.12/pe5_12.sce b/2075/CH5/EX5.12/pe5_12.sce
new file mode 100755
index 000000000..8fca59647
--- /dev/null
+++ b/2075/CH5/EX5.12/pe5_12.sce
@@ -0,0 +1,17 @@
+//example 5.12
+clc; funcprot(0);
+// Initialization of Variable
+I=6;//current
+V=.6;//voltage
+D=.5;//duty cycle
+//calculation
+Rs=V/I;
+disp(Rs,"resistance in ohm")
+Pr=D*V*I;
+disp(Pr,"power in W:")
+Vp=28;
+Pm=D*Vp*I;
+disp(Pm,"MOSFET power in W")
+T=40;//temperature
+Tj=T+Pm*5.1;
+disp(round(Tj),"temperature in degreeC")
diff --git a/2075/CH5/EX5.13/pe5_13.sce b/2075/CH5/EX5.13/pe5_13.sce
new file mode 100755
index 000000000..e7075f239
--- /dev/null
+++ b/2075/CH5/EX5.13/pe5_13.sce
@@ -0,0 +1,9 @@
+//example 5.13
+clc; funcprot(0);
+// Initialization of Variable
+T=130;//temperature
+P=19.5;//power
+//calculation
+Ts=T-P*2.1;
+disp(Ts,"maximum safe temperature in degreeC")
+clear()
diff --git a/2075/CH5/EX5.14/pe5_14.sce b/2075/CH5/EX5.14/pe5_14.sce
new file mode 100755
index 000000000..051e13d6d
--- /dev/null
+++ b/2075/CH5/EX5.14/pe5_14.sce
@@ -0,0 +1,25 @@
+//example 5.14
+clc; funcprot(0);
+// Initialization of Variable
+pi=3.1428;
+V=15.0;//voltage
+f=300.0;//frequency
+L=4.7;//inductance
+Vdc=28;//V
+//calculation
+Xl=2*pi*f*L;
+disp(Xl/1000,"reactance in ohm")
+Zload=sqroot(8^2+8.9^2);//magnitude of Zload
+Vload=15.0;//msgnitude of Vload
+Vr=Vload*8/Zload;
+disp(Vr,"voltage across resistor in V");
+disp("-48 is the angle of the voltage in degrees");
+Pr=12.5;
+disp(Pr,"power dissipated by load in watts")
+I=Vr/8*sqroot(2);
+disp(I,"current across the resistamce in A");
+Psupply=Vdc*I/pi;
+disp(Psupply,"power supply in W");
+Pq=Psupply-Pr/2;
+disp(Pq,"power dissipated by transistor in watts")
+clear()
diff --git a/2075/CH5/EX5.2/pe5_2.sce b/2075/CH5/EX5.2/pe5_2.sce
new file mode 100755
index 000000000..37dbd81a8
--- /dev/null
+++ b/2075/CH5/EX5.2/pe5_2.sce
@@ -0,0 +1,9 @@
+//example 5.2
+clc; funcprot(0);
+// Initialization of Variable
+V=4.5;//voltage
+T=25;//degreeC
+Id=3.8;
+disp(Id,"drain current in A:")
+printf('Vth=4V is assumed')
+clear()
diff --git a/2075/CH5/EX5.3/pe5_3.sce b/2075/CH5/EX5.3/pe5_3.sce
new file mode 100755
index 000000000..e335c180c
--- /dev/null
+++ b/2075/CH5/EX5.3/pe5_3.sce
@@ -0,0 +1,12 @@
+//example 5.3
+clc; funcprot(0);
+// Initialization of Variable
+Vgs=-5;//voltage
+printf('MOSFET is IRF530N')
+Vthl=-4;
+Vthu=-2;
+disp(Vthl,"lower limit of Vth in V:")
+disp(Vthu,"upper limit of Vth in V:")
+Id=2.3;//current
+disp(Id,"Id in A:")
+clear()
diff --git a/2075/CH5/EX5.5/pe5_5.sce b/2075/CH5/EX5.5/pe5_5.sce
new file mode 100755
index 000000000..f29446559
--- /dev/null
+++ b/2075/CH5/EX5.5/pe5_5.sce
@@ -0,0 +1,26 @@
+//example 5.5
+clc; funcprot(0);
+// Initialization of Variable
+R1=22;//resistance
+Vg=3.6;//voltage
+Vd=56;
+G=.98;//gain
+Vi=40;
+Rl=8;//load resistance
+Vp=36.5;
+pi=3.1428;
+//calculation
+Vr=Vd-Vg;
+Ir=Vr/R1;
+R2=Vg/Ir;
+disp(R2,"resistance in kohm:")
+Va=(R1/(R1+R2))*Vi;
+Vl=G*Va;
+disp(Vl,"load voltage in V:")
+Il=Vp/Rl;
+Pl=Vp*4.6/4;
+Ps=Vd*4.6/pi;
+Pq=Ps-Pl;
+disp(Pq,"Pq in watt:")
+disp(Ps,"Ps in watt:")
+disp(Pl,"Pl in watt:")
diff --git a/2075/CH5/EX5.6/pe5_6.sce b/2075/CH5/EX5.6/pe5_6.sce
new file mode 100755
index 000000000..0fbc03340
--- /dev/null
+++ b/2075/CH5/EX5.6/pe5_6.sce
@@ -0,0 +1,13 @@
+//example 5.6
+clc; funcprot(0);
+// Initialization of Variable
+R1=22;//resistance
+V1=56;//voltage
+V2=2;//voltage
+//calculation
+I=(V1-V2)/R1;
+disp(I,"current in mA")
+R2=V2/I;
+disp(R2*1000,"resistance2 in ohm:")
+printf('pick R2=R3=820ohm R1=R4=22 kohm')
+clear()
diff --git a/2075/CH5/EX5.7/pe5_7.sce b/2075/CH5/EX5.7/pe5_7.sce
new file mode 100755
index 000000000..07c36f13c
--- /dev/null
+++ b/2075/CH5/EX5.7/pe5_7.sce
@@ -0,0 +1,11 @@
+//example 5.7
+clc; funcprot(0);
+// Initialization of Variable
+Vi=350;//voltage
+f=100;//frequency
+Rf=10000;//resistance
+Ri=520;
+//calculation
+Vp=(1+(Rf/Ri))*Vi*2^.5;
+disp(Vp/1000,"load voltage in V:")
+clear()
diff --git a/2075/CH5/EX5.8/pe5_8.sce b/2075/CH5/EX5.8/pe5_8.sce
new file mode 100755
index 000000000..8b4cbb821
--- /dev/null
+++ b/2075/CH5/EX5.8/pe5_8.sce
@@ -0,0 +1,32 @@
+//example 5.8
+clc; funcprot(0);
+// Initialization of Variable
+P=50;//power
+Z=4.7//impedence
+R=4;//resistance
+Ta=40;//degreeC
+Tj=140;//degreeC
+Vd=28;
+R2=22;
+pi=3.1428;
+//calculation
+Vr=(P*R)^.5;
+Vp=Vr*2^.5;
+disp(Vp,"load rms voltage in V:")
+Av=-Vr/1.23;
+Rf=-Av*Z;
+disp(Rf,"resistance in kohm:")
+I=(Vd-2)/R2;
+disp(I,"current in mA:")
+Vm=.63*Vd;
+Ip=Vm/R;
+disp(Ip,"load current in A:")
+Ps=Vd*Ip/pi;
+disp(round(Ps),"supply power in watt:")
+Pl=Ip^2/2*R;
+disp(round(Pl),"load power in W:")
+Pq=round(Ps)-Pl/2;
+disp(Pq,"power in W:")
+Qs=(Tj-Ta)/Pq-2.1;
+disp(Qs,"thermal resistance in degreC/W:")
+clear()
diff --git a/2075/CH5/EX5.9/pe5_8.sce b/2075/CH5/EX5.9/pe5_8.sce
new file mode 100755
index 000000000..8b4cbb821
--- /dev/null
+++ b/2075/CH5/EX5.9/pe5_8.sce
@@ -0,0 +1,32 @@
+//example 5.8
+clc; funcprot(0);
+// Initialization of Variable
+P=50;//power
+Z=4.7//impedence
+R=4;//resistance
+Ta=40;//degreeC
+Tj=140;//degreeC
+Vd=28;
+R2=22;
+pi=3.1428;
+//calculation
+Vr=(P*R)^.5;
+Vp=Vr*2^.5;
+disp(Vp,"load rms voltage in V:")
+Av=-Vr/1.23;
+Rf=-Av*Z;
+disp(Rf,"resistance in kohm:")
+I=(Vd-2)/R2;
+disp(I,"current in mA:")
+Vm=.63*Vd;
+Ip=Vm/R;
+disp(Ip,"load current in A:")
+Ps=Vd*Ip/pi;
+disp(round(Ps),"supply power in watt:")
+Pl=Ip^2/2*R;
+disp(round(Pl),"load power in W:")
+Pq=round(Ps)-Pl/2;
+disp(Pq,"power in W:")
+Qs=(Tj-Ta)/Pq-2.1;
+disp(Qs,"thermal resistance in degreC/W:")
+clear()