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

---
 833/CH11/EX11.13/Ex11_13.sce     | 30 ++++++++++++++++++++++++++++++
 833/CH11/EX11.13/Ex11_13.txt     | 30 ++++++++++++++++++++++++++++++
 833/CH11/EX11.13/Result11_13.txt | 24 ++++++++++++++++++++++++
 3 files changed, 84 insertions(+)
 create mode 100755 833/CH11/EX11.13/Ex11_13.sce
 create mode 100755 833/CH11/EX11.13/Ex11_13.txt
 create mode 100755 833/CH11/EX11.13/Result11_13.txt

(limited to '833/CH11/EX11.13')

diff --git a/833/CH11/EX11.13/Ex11_13.sce b/833/CH11/EX11.13/Ex11_13.sce
new file mode 100755
index 000000000..23fc76ab5
--- /dev/null
+++ b/833/CH11/EX11.13/Ex11_13.sce
@@ -0,0 +1,30 @@
+//Caption:Find (a)Equivalent rotor current (b)Stator current (c)Power factor (d)Stator input (e)Rotor input (f)Efficiency
+//Exa:11.13
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+f=50//frequency(in hertz)
+Z_s=1.5+(%i*3)//Stator impedance per phase(in ohms)
+Z_r=1.6+(%i*1)//Rotor impedance per phase(in ohms)
+Z_m=3+(%i*40)//Magnetising impedance per phase(in ohms)
+P_wf=300//Friction and winding loss(in watt)
+s=0.04//Slip
+Z=40+(%i*1)
+z=Z*Z_m/(Z+Z_m)
+Zt=z+Z_s
+I1=(V/sqrt(3))/Zt
+E=(V/sqrt(3))-(I1*Z_s)
+I2=E/Z
+disp(I2,'(a)Equivalent Rotor current(in A)=')
+disp(I1,'(b)Stator current(in A)=')
+pf=cosd(atand(imag(Zt)/real(Zt)))
+disp(pf,'(c)Power factor=')
+P_s=sqrt(3)*V*sqrt(I1*conj(I1))*pf
+disp(P_s,'(d)Stator input(in watt)=')
+P_r=3*(I2*conj(I2))*(real(Z_r)/s)
+disp(P_r,'(e)Rotor input(in watt)=')
+P_ro=P_r*(1-s)
+P_me=P_ro-P_wf
+e=(P_me/P_s)*100
+disp(e,'(e)Efficiency(in%)=')
\ No newline at end of file
diff --git a/833/CH11/EX11.13/Ex11_13.txt b/833/CH11/EX11.13/Ex11_13.txt
new file mode 100755
index 000000000..23fc76ab5
--- /dev/null
+++ b/833/CH11/EX11.13/Ex11_13.txt
@@ -0,0 +1,30 @@
+//Caption:Find (a)Equivalent rotor current (b)Stator current (c)Power factor (d)Stator input (e)Rotor input (f)Efficiency
+//Exa:11.13
+clc;
+clear;
+close;
+V=440//Voltage supplied(in volts)
+f=50//frequency(in hertz)
+Z_s=1.5+(%i*3)//Stator impedance per phase(in ohms)
+Z_r=1.6+(%i*1)//Rotor impedance per phase(in ohms)
+Z_m=3+(%i*40)//Magnetising impedance per phase(in ohms)
+P_wf=300//Friction and winding loss(in watt)
+s=0.04//Slip
+Z=40+(%i*1)
+z=Z*Z_m/(Z+Z_m)
+Zt=z+Z_s
+I1=(V/sqrt(3))/Zt
+E=(V/sqrt(3))-(I1*Z_s)
+I2=E/Z
+disp(I2,'(a)Equivalent Rotor current(in A)=')
+disp(I1,'(b)Stator current(in A)=')
+pf=cosd(atand(imag(Zt)/real(Zt)))
+disp(pf,'(c)Power factor=')
+P_s=sqrt(3)*V*sqrt(I1*conj(I1))*pf
+disp(P_s,'(d)Stator input(in watt)=')
+P_r=3*(I2*conj(I2))*(real(Z_r)/s)
+disp(P_r,'(e)Rotor input(in watt)=')
+P_ro=P_r*(1-s)
+P_me=P_ro-P_wf
+e=(P_me/P_s)*100
+disp(e,'(e)Efficiency(in%)=')
\ No newline at end of file
diff --git a/833/CH11/EX11.13/Result11_13.txt b/833/CH11/EX11.13/Result11_13.txt
new file mode 100755
index 000000000..4028e8cba
--- /dev/null
+++ b/833/CH11/EX11.13/Result11_13.txt
@@ -0,0 +1,24 @@
+(a)Equivalent Rotor current(in A)=   
+ 
+    5.669941 - 0.3569549i  
+ 
+ (b)Stator current(in A)=   
+ 
+    5.8794709 - 6.0201051i  
+ 
+ (c)Power factor=   
+ 
+    0.6987011  
+ 
+ (d)Stator input(in watt)=   
+ 
+    4480.7586  
+ 
+ (e)Rotor input(in watt)=   
+ 
+    3873.0778  
+ 
+ (e)Efficiency(in%)=   
+ 
+    76.285177  
+ 
\ No newline at end of file
-- 
cgit