summaryrefslogtreecommitdiff
path: root/3890/CH3/EX3.5/Ex3_5.sce
diff options
context:
space:
mode:
authorprashantsinalkar2018-02-03 11:01:52 +0530
committerprashantsinalkar2018-02-03 11:01:52 +0530
commit7bc77cb1ed33745c720952c92b3b2747c5cbf2df (patch)
tree449d555969bfd7befe906877abab098c6e63a0e8 /3890/CH3/EX3.5/Ex3_5.sce
parentd1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 (diff)
downloadScilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.gz
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.bz2
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.zip
Added new codeHEADmaster
Diffstat (limited to '3890/CH3/EX3.5/Ex3_5.sce')
-rw-r--r--3890/CH3/EX3.5/Ex3_5.sce28
1 files changed, 28 insertions, 0 deletions
diff --git a/3890/CH3/EX3.5/Ex3_5.sce b/3890/CH3/EX3.5/Ex3_5.sce
new file mode 100644
index 000000000..d4ab397b0
--- /dev/null
+++ b/3890/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,28 @@
+//Electric machines and power systems by Syed A Nasar
+//Publisher:TataMcgraw Hill
+//Year: 2002 ; Edition - 7
+//Example 3.5
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+
+v1=220;v2=110; //voltages of primary and secondary windings res.
+Q=10; //reactive power at KVA
+R1=.25;R2=.06; //voltages of primary and secondary windings res.
+
+a=v1/v2;
+I1=(Q*10^3)/v1;
+I2=a*I1;
+L1=(I1^2)*R1;
+L2=(I2^2)*R2;
+T=L1+L2; //total I^2*R loss
+
+R21=(a^2)*R2;
+Rp=R1+(a^2)*R2;
+L=(I1^2)*Rp; //loss due to resistance referred to primary
+
+printf('total I^2*R loss %f\n',T);
+printf('loss due to resistance referred to primary is %f\n',L)
+printf('Hence proved')