summaryrefslogtreecommitdiff
path: root/3802/CH7/EX7.9/Ex7_9.sce
diff options
context:
space:
mode:
Diffstat (limited to '3802/CH7/EX7.9/Ex7_9.sce')
-rw-r--r--3802/CH7/EX7.9/Ex7_9.sce32
1 files changed, 32 insertions, 0 deletions
diff --git a/3802/CH7/EX7.9/Ex7_9.sce b/3802/CH7/EX7.9/Ex7_9.sce
new file mode 100644
index 000000000..b65af80d8
--- /dev/null
+++ b/3802/CH7/EX7.9/Ex7_9.sce
@@ -0,0 +1,32 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex7_9.sce.
+
+clc;
+clear;
+Vp=220; //primary voltage in V
+Vs=250; //secondary voltage in V
+Ns=2000; //number of secondary turns
+
+printf("\n (a)")
+Np=(Vp/Vs)*Ns; //number of Primary turns
+tapping_point=Ns-Np; //number of turns from C to A in figure
+printf("\n The position of tapping point=%d turns \n",tapping_point)
+
+printf("\n (b)")
+Po=10e3; //output power in KVA
+Is=Po/Vs; //secodary current in A
+Ip=(Vs/Vp)*Is; //primary current in A
+approximate_current=Ip-Is;
+printf("\n The approximate value of current in each part of the winding:\n")
+printf("\t Is=%d A\n",Is)
+printf("\t Ip=%2.2f A\n",Ip)
+printf("\t Ip-Is=%1.2f A\n",approximate_current)
+
+printf("\n (c)")
+copper_saved=Vp/Vs;
+printf("\n copper saved=%1.2f p.u",copper_saved)
+