From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3784/CH7/EX7.4/Ex7_4.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 3784/CH7/EX7.4/Ex7_4.sce

(limited to '3784/CH7/EX7.4')

diff --git a/3784/CH7/EX7.4/Ex7_4.sce b/3784/CH7/EX7.4/Ex7_4.sce
new file mode 100644
index 000000000..9c9e841a4
--- /dev/null
+++ b/3784/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,28 @@
+clc 
+//variable initialisation
+V=400 //Supply voltage in volts
+P=24 //number of poles
+f=50 //frequency in Hz
+P1=100e+3 //power in Watt
+P2=100e+3 //power in Watt
+K=1.4 //Turns ratio
+R=0.03 //resistance in ohmm
+N1=240 //speed in rpm
+N2=180 //speed in rpm
+
+//solution
+Vp=V/sqrt(3)
+Ns=(120*f)/P
+s=(Ns-N1)/Ns
+w=(2*%pi*N1)/60
+T=P1/w
+R1=K^(2)*R
+X=sqrt((3*Vp^2*R1/(T*2*%pi*Ns*s/60))-((R1/s)^(2)))
+s1=(Ns-N2)/Ns
+T1=T*(N2/N1)^2
+A=(T*2*%pi*Ns*s1/60)/(3*(Vp^2))
+R22=poly(0,'R22')
+0==(R22^2)*(A/(s1^2))+(A*X^2)-R22//Polynomial equation obtained for R22
+R22=0.745//After solving equation value of Resistor
+R2=(R22-R1)/K^2
+printf('\n\n The Resistance to connect in series=%0.1f ohm\n\n',R2)
-- 
cgit