1 files changed, 21 insertions, 0 deletions
diff --git a/182/CH8/EX8.11/example8_11.sce b/182/CH8/EX8.11/example8_11.sce
new file mode 100755
index 000000000..02952da47
--- /dev/null
+++ b/182/CH8/EX8.11/example8_11.sce
@@ -0,0 +1,21 @@
+// to determine the Q factor
+// example 8-11 in page 221
+clc;
+//Data given
+E=100D-3; R=[5 10]; XC=100; XL=XC; // supply resistance, capacitive reactance and inductive reactance respectively for the fig 8-17, all in ohm
+//calculation
+for n=1:2
+    I=E/R(n);// current in ampere
+    V=I*XC;// VL=VC=V and XC=XL, voltage in volts
+    Q=V/E;// Q factor
+    printf("for %d st coil,\n",n);
+    printf("voltmeter indication=%d V\n",V);
+    printf("Q=%d\n",Q);
+end 
+//result
+//for 1 st coil,
+//voltmeter indication=2 V
+//Q=20
+//for 2 st coil,
+//voltmeter indication=1 V
+//Q=10
+\ No newline at end of file