1 files changed, 32 insertions, 0 deletions
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()