From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 695/CH3/EX3.13/Ex3_13.sce | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 695/CH3/EX3.13/Ex3_13.sce

(limited to '695/CH3/EX3.13/Ex3_13.sce')

diff --git a/695/CH3/EX3.13/Ex3_13.sce b/695/CH3/EX3.13/Ex3_13.sce
new file mode 100755
index 000000000..d198ab52b
--- /dev/null
+++ b/695/CH3/EX3.13/Ex3_13.sce
@@ -0,0 +1,24 @@
+//Caption:Determine the KVA rating of auto transformer with additive and subtractive polarity also find the efficiency at full load and unity power factor
+//Exa:3.13
+clc;
+clear;
+close;
+P=120*1000;//in watts
+V1=2400;//in volts
+V2=240;//in volts
+I1=P/V1;//in amperes
+I2=P/V2;//in amperes
+KVA_1=V1*(I1+I2)/1000;
+P_trans=V2*I2/1000;
+P_cond_1=KVA_1-P_trans;
+P_loss_1=((1/0.98)-1)^2*P_trans;
+Eff_a=1-(P_loss_1/KVA_1)
+disp(KVA_1,'KVA Rating of transformer with additive polarity (in KVA)=');
+disp(Eff_a*100,'Efficiency of auto transformer with additive polarity (in %)=');
+KVA_2=V1*(I2-I1)/1000;
+P_trans=V2*I2/1000;
+P_cond_2=KVA_2-P_trans;
+P_loss=((1/0.98)-1)^2*P_trans;
+Eff_s=1-(P_loss/KVA_2)
+disp(KVA_2,'KVA Rating of transformer with subtractive polarity (in KVA)=');
+disp(Eff_s*100,'Efficiency of auto transformer with subtractive polarity (in %)=');
\ No newline at end of file
-- 
cgit