10 files changed, 216 insertions, 0 deletions
diff --git a/3835/CH6/EX6.1/Ex6_1.sce b/3835/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..97629a093
--- /dev/null
+++ b/3835/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,16 @@
+clear
+//
+//given
+a=50*(10**-4)
+e=400
+f=50
+n1=500
+n2=1000
+//phym=bm*a
+//case a
+//e=4.44*f*n*bm*a
+bm=(e)/(4.44*f*n1*a)
+printf("\n bm= %0.1f  Wb/m2",bm)
+//case b
+e2=4.44*f*n2*bm*a
+printf("\n e2= %0.1f  V",e2)
diff --git a/3835/CH6/EX6.10/Ex6_10.sce b/3835/CH6/EX6.10/Ex6_10.sce
new file mode 100644
index 000000000..3f29ac343
--- /dev/null
+++ b/3835/CH6/EX6.10/Ex6_10.sce
@@ -0,0 +1,15 @@
+clear
+//
+//at unity power factor
+op=15000
+n=0.98
+i=op/(n)
+printf("\n %0.3f ",i)
+loss=i-op
+printf("\n %0.3f ",loss)
+pc=(loss)/2000 //actually division by 2 but value given only to make pc 0.153 instead of 153
+t=pc*24 //iron loss in a day
+toteng=20+96+108 //sum of energy outputs
+engloss=0.109+1.224+1.632 //sum of energy losses
+n=toteng/(engloss+toteng+t)
+printf("\n %0.3f ",n)
diff --git a/3835/CH6/EX6.11/Ex6_11.sce b/3835/CH6/EX6.11/Ex6_11.sce
new file mode 100644
index 000000000..fc88dcb88
--- /dev/null
+++ b/3835/CH6/EX6.11/Ex6_11.sce
@@ -0,0 +1,20 @@
+clear
+//
+kva=10000
+pf=0.8
+iloss=75
+closs=150
+a=0.5
+//case a
+po=kva*pf
+loss=75+150
+n=po/(po+loss)
+printf("\n %0.3f ",n)
+//case b
+i2=(10*1000)/(200)
+i1=i2+((10*1000)/400)
+kvar=(600*50)/1000
+printf("\n %0.3f ",kvar)
+po=30*0.8
+n=1-(0.225/24)
+printf("\n %0.3f ",n)
diff --git a/3835/CH6/EX6.12/Ex6_12.sce b/3835/CH6/EX6.12/Ex6_12.sce
new file mode 100644
index 000000000..84e49996d
--- /dev/null
+++ b/3835/CH6/EX6.12/Ex6_12.sce
@@ -0,0 +1,18 @@
+clear
+//
+//case 1
+//2300 winding used as secondary
+//given and derived
+st=150
+v1=13800
+v2=2300
+a=(v1-v2)/v2
+b=a+1
+sat=(6*150)/5
+printf("\n sat= %0.1f  Kva",sat)
+//case 2
+v1=13.8
+v2=11.5
+a=(v1-v2)/v2
+sat=((1+a)/a)*150
+printf("\n sat= %0.1f  kva",sat)
diff --git a/3835/CH6/EX6.13/Ex6_13.sce b/3835/CH6/EX6.13/Ex6_13.sce
new file mode 100644
index 000000000..a2537b7fd
--- /dev/null
+++ b/3835/CH6/EX6.13/Ex6_13.sce
@@ -0,0 +1,35 @@
+clear
+//
+//given and 1.732 is the value of root 3
+v=6600
+i=10
+n=15
+//case a
+v2l=v/n
+printf("\n v2l= %0.1f  V",v2l)
+i1p=10/1.732
+i2p=i1p*n
+printf("\n i2p= %0.1f  A",i2p)
+i2l=n*i1p*1.732
+printf("\n i2l= %0.1f  A",i2l)
+//case b
+v2p=v/(n*1.732)
+printf("\n v2p= %0.1f  V",v2p)
+v2l=v2p*1.732
+printf("\n v2l= %0.1f  V",v2l)
+printf("\n i2p=i2l= %0.1f  A",i2p)
+//case c
+v2p=v/n
+printf("\n v2p= %0.1f  V",v2p)
+v2l=(v*1.732)/n
+printf("\n v2l= %0.1f  V",v2l)
+i1p=i/1.732
+printf("\n i2p= %0.1f  A",i2p)
+//case d
+v1p=v/1.732
+printf("\n v2p= %0.1f  V",v2p)
+i1p=10
+i2p=i1p*n
+printf("\n i2p= %0.1f  A",i2p)
+i2l=i2p*1.732
+printf("\n i2l= %0.1f  A",i2l)
diff --git a/3835/CH6/EX6.14/Ex6_14.sce b/3835/CH6/EX6.14/Ex6_14.sce
new file mode 100644
index 000000000..0f2681a1c
--- /dev/null
+++ b/3835/CH6/EX6.14/Ex6_14.sce
@@ -0,0 +1,13 @@
+clear
+//
+//given
+hp=75
+v=415
+n=0.9
+pf=0.85
+op=75*746 //since its horse power
+ip=op/n
+ilv=ip/(1.732*v*pf) //line current on low voltage start side
+a=(6600*1.732)/415 //given in question
+ihv=ilv/a
+printf("\n ihv= %0.1f  A",ihv)
diff --git a/3835/CH6/EX6.2/Ex6_2.sce b/3835/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..5dc410b60
--- /dev/null
+++ b/3835/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,27 @@
+clear
+//
+//given
+e=3300
+f=50
+n1=600
+n2=80
+bm=1.2
+h=425
+l=1.6
+density=7400
+loss=1.5
+//case a
+phym=e/(4.44*f*n1)
+csa=phym/bm
+printf("\n cross sectional area= %e  m2",csa)
+//case b
+sv=(e*n2)/n1
+printf("\n secondary voltage on no load= %0.1f  V",sv)
+//case c
+mc=(h*l)/n1
+printf("\n primary magnetising current= %0.1f  A",mc)
+//case d
+v=l*csa
+m=v*density
+closs=m*loss
+printf("\n core loss= %0.1f  W",closs)
diff --git a/3835/CH6/EX6.3/Ex6_3.sce b/3835/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..4d8b5f682
--- /dev/null
+++ b/3835/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,30 @@
+clear
+//
+//given
+//as per step up tranformer
+v1=220
+v2=6600
+f=50
+vturn=2.5
+kva=10000
+//case a
+a=v1/(v2)
+printf("\n %0.3f ",a)
+//as per step down case b
+v1=6600
+v2=220
+a=v1/v2
+printf("\n %0.3f ",a)
+//case c
+//high voltage soil
+n=v1/(vturn)
+printf("\n number of turns of high voltage soil= %0.1f  ",n)
+//low voltage soil
+n1=v2/(vturn)
+printf("\n number of turns of high voltage soil= %0.1f  ",n1)
+//case d
+i=kva/(v1)
+printf("\n primary current as a step down transformer is= %0.1f  A",i)
+//case e
+i=kva/(v2)
+printf("\n secondary current as a step down transformer is= %0.1f  A",i)
diff --git a/3835/CH6/EX6.4/Ex6_4.sce b/3835/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..3c4fdf27f
--- /dev/null
+++ b/3835/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,9 @@
+clear
+//
+//given
+rl=32
+//let ratio of sides be a
+rs=2
+a=(2/(32))
+p=a**0.5
+printf("\n turns ratio for impedance machting is %0.1f  ",p)
diff --git a/3835/CH6/EX6.6/Ex6_6.sce b/3835/CH6/EX6.6/Ex6_6.sce
new file mode 100644
index 000000000..77509d997
--- /dev/null
+++ b/3835/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,33 @@
+clear
+//
+//case a
+//from oc test data shunt admittances are determined as follows
+//given
+v1=200
+i0=1
+pc=100
+yc=i0/(v1)
+printf("\n yc= %e  S",yc)
+gc=pc/(v1**2)
+printf("\n gc= %e S",gc)
+bm=(((0.005**2)-(0.0025**2))**0.5)
+printf("\n bm= %e   S",bm)
+//from sc test data
+p=85
+isc=10
+vsc=15
+req=p/(isc**2)
+printf("\n req= %0.1f  ohm",req)
+zeq=vsc/(isc)
+printf("\n zeq= %0.1f  ohm",zeq)
+xeq=(((zeq**2)-(req**2))**0.5)
+printf("\n xeq= %0.1f  ohm",xeq)
+//case b
+a=0.5
+//equivalent impedance parameters referred to lv side
+re=(a**2)*req
+printf("\n req1= %0.1f  ohm",re)
+xe=(a**2)*xeq
+printf("\n xeq1= %0.1f  ohm",xe)
+ze=(a**2)*zeq
+printf("\n zeq1= %0.1f  ohm",ze)