1 files changed, 14 insertions, 0 deletions
diff --git a/2075/CH8/EX8.9/pe8_9.sce b/2075/CH8/EX8.9/pe8_9.sce
new file mode 100755
index 000000000..4196d6e78
--- /dev/null
+++ b/2075/CH8/EX8.9/pe8_9.sce
@@ -0,0 +1,14 @@
+//example 8.9
+clc;funcprot(0);
+//Initialization of Variable
+V=220;//line voltage
+P=1.3;//kW
+R=15;//ohm
+pi=3.1428;
+//calculation
+Vr=round((P*1000*R)^.5);
+disp(Vr,"rms voltage in V:")
+D=Vr/V;
+Vr=V*2^.5*(.5*(pi-1.710)+sin(196*pi/180)/4)^.5/pi^.5;
+disp(Vr,"double checked value of rms voltage in V:")
+clear()