1 files changed, 26 insertions, 0 deletions
diff --git a/3871/CH6/EX6.12/Ex6_12.sce b/3871/CH6/EX6.12/Ex6_12.sce
new file mode 100644
index 000000000..5b79b80f0
--- /dev/null
+++ b/3871/CH6/EX6.12/Ex6_12.sce
@@ -0,0 +1,26 @@
+//===========================================================================
+//chapter 6 example 12
+
+clc;clear all;
+
+//variable declaration
+Rv    = 2400;      //resistance in Ω
+L     =0.6;        //instrument inductace in H
+f     = 60;       //frequency in Hz
+
+//calculations
+XL   = 2*%pi*f*L;           //instrument reactance in Ω
+Z    = sqrt((Rv^2)+(XL^2));     //instrument impedance in  Ω
+//when the instrument range is extended from 120V to 600V the impedance will have to be made 5 times in order to have the same current 
+//math.sqrt((RV**2)+XL^2) = 5*Z
+x    = (5*Z)^2;
+y    = XL^2;
+z    = x-y;
+a    = (sqrt(z));
+R   = a-Rv;       //series resistance in Ω
+
+//result
+mprintf("instrument reactance = %3.1f Ω",XL);
+mprintf("\nseries resistance = %3.2f Ω",R);
+
+