1 files changed, 14 insertions, 0 deletions
diff --git a/2075/CH9/EX9.7/pe9_7.sce b/2075/CH9/EX9.7/pe9_7.sce
new file mode 100755
index 000000000..9fa61f6a7
--- /dev/null
+++ b/2075/CH9/EX9.7/pe9_7.sce
@@ -0,0 +1,14 @@
+//example 9.7
+clc;funcprot(0);
+//Initialization of Variable
+P=150;//power
+V=8;//voltage
+R=.01;//resistance
+D=.5;//duty cycle
+//calculation
+I=P/.9/D/V;
+disp(I,"max. current in A:")
+Ir=I*D^.5;
+Pq=Ir^2*R;
+disp(Pq,"dissipated power in W:")
+clear()