1 files changed, 23 insertions, 0 deletions
diff --git a/2075/CH6/EX6.7/pe6_7.sce b/2075/CH6/EX6.7/pe6_7.sce
new file mode 100755
index 000000000..149cc3256
--- /dev/null
+++ b/2075/CH6/EX6.7/pe6_7.sce
@@ -0,0 +1,23 @@
+//example 6.7
+clc; funcprot(0);
+// Initialization of Variable
+R1=.11;//resistance
+Vd=28;//voltage
+R2=6;//ohm
+D=.4;//duty cycle
+Q=62;
+Ro=2.6*R1;
+disp(Ro,"worstcase resistance in ohm:")
+Ip=Vd/(R2+Ro);
+disp(Ip,"load current in A:")
+Vl=Ip*R2;
+disp(Vl,"load voltage in V:")
+Pl=D*Vl*Ip;
+disp(Pl,"load power in W:")
+Vq=Ip*Ro;
+disp(Vq,"drop voltage in V:")
+Pq=D*Vq*Ip;
+disp(round(Pq*10)/10,"power in W:")
+T=40+round(Pq*10)/10*Q;
+disp(T,"temperature in deg.C")
+clear()