1 files changed, 15 insertions, 0 deletions
diff --git a/147/CH18/EX18.4/Example18_4.sce b/147/CH18/EX18.4/Example18_4.sce
new file mode 100644
index 000000000..34eaa4bfa
--- /dev/null
+++ b/147/CH18/EX18.4/Example18_4.sce
@@ -0,0 +1,15 @@
+//Resistance of moving coil instrument R, Full deflection current I
+close();
+clear;
+clc;
+R = 10;//ohm
+I = 0.05;//A
+//Part (i)
+V = 750;
+Rse = V/I - R;
+//Part(ii)
+Ii = I;
+I = 100;
+Ish = I-Ii;
+Rsh = R*Ii/Ish;
+mprintf('(i)Rse = %0.2f k ohm\n(ii)Rsh = %0.0f m ohm',Rse/1000,Rsh*1000);