13 files changed, 185 insertions, 0 deletions
diff --git a/3769/CH14/EX14.1/Ex14_1.sce b/3769/CH14/EX14.1/Ex14_1.sce
new file mode 100644
index 000000000..b55979409
--- /dev/null
+++ b/3769/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,16 @@
+clear
+//Given
+N=100
+A=10**-2                     //m**2
+B=0.5                        //T
+f=500/60.0
+
+//Calculation
+//
+w=2*%pi*f
+E0=N*A*B*w
+E=E0*sin(60*3.14/180.0)
+
+//Result
+printf("\n Maximum emf produced in the coil is %0.2f  V",E0)
+printf("\n Instantaneous value of e.m.f. is %0.1f  V",E)
diff --git a/3769/CH14/EX14.10/Ex14_10.sce b/3769/CH14/EX14.10/Ex14_10.sce
new file mode 100644
index 000000000..981b8d3a7
--- /dev/null
+++ b/3769/CH14/EX14.10/Ex14_10.sce
@@ -0,0 +1,17 @@
+clear
+//Given
+V=200                    //V
+I=5                      //A
+R=8.5                     //ohm 
+
+//Calculation
+Eb=V-(I*R)
+Pi=V*I
+P0=Eb*I
+n=(P0*100)/Pi
+
+//Result
+printf("\n (i) Back e.m.f of motor is %0.3f  V", Eb)
+printf("\n (ii) Power input is %0.3f  W",Pi)
+printf("\n (iii) Output power is %0.3f  W",P0)
+printf("\n (iv) Efficiency of motor is %0.3f  percentage",n)
diff --git a/3769/CH14/EX14.11/Ex14_11.sce b/3769/CH14/EX14.11/Ex14_11.sce
new file mode 100644
index 000000000..14166279b
--- /dev/null
+++ b/3769/CH14/EX14.11/Ex14_11.sce
@@ -0,0 +1,14 @@
+clear
+//Given
+V=200                    //V
+Vp=200                           //V
+n=200.0
+Ip=2                           //A
+
+//Calculation
+Vs=Vp*n
+Is=(Ip*V)/Vs
+
+//Result
+printf("\n (i) Voltage developed in the secondary is %0.3f  V", Vs)
+printf("\n (ii) The current in the secondary is %0.3f  A",Is )
diff --git a/3769/CH14/EX14.12/Ex14_12.sce b/3769/CH14/EX14.12/Ex14_12.sce
new file mode 100644
index 000000000..9def5ec1a
--- /dev/null
+++ b/3769/CH14/EX14.12/Ex14_12.sce
@@ -0,0 +1,15 @@
+clear
+//Given
+Vp=220.0                           //V
+Is=5                             //A
+n=20
+
+//Calculation
+Vs=Vp*n
+Ip=(Vs*Is)/Vp
+P=Vs*Is
+
+//Result
+printf("\n (i) Voltage across secondary is %0.3f  V",Vs)
+printf("\n (ii) The current in primary is %0.3f  A",Ip)
+printf("\n (iii) The power output is %0.3f  K W",P*10**-3)
diff --git a/3769/CH14/EX14.13/Ex14_13.sce b/3769/CH14/EX14.13/Ex14_13.sce
new file mode 100644
index 000000000..7c4a55b6c
--- /dev/null
+++ b/3769/CH14/EX14.13/Ex14_13.sce
@@ -0,0 +1,16 @@
+clear
+//Given
+P=120*10**3                      //W
+R=0.4                            //ohm
+Ev=240.0                           //V
+Ev1=24000.0                        //V
+
+//Calculation
+Iv=P/Ev
+P=Iv**2*R
+Iv1=P/Ev1
+P1=Iv1**2*R
+
+//Result
+printf("\n (i) Power loss at 240 V is %0.3f  K W", P*10**-3)
+printf("\n (ii) Power loss at 24000 V is %0.0f  W",P1)
diff --git a/3769/CH14/EX14.14/Ex14_14.sce b/3769/CH14/EX14.14/Ex14_14.sce
new file mode 100644
index 000000000..eff82b3e9
--- /dev/null
+++ b/3769/CH14/EX14.14/Ex14_14.sce
@@ -0,0 +1,14 @@
+clear
+//Given
+Np=5000
+Vp=2200                       //V
+Vs=220                         //V
+Pout=8                         //K W
+n=0.9
+
+//Calculation
+Ns=(Vs*Np)/Vp
+Pin=Pout/n
+
+//Result
+printf("\n (ii) Input power is %0.1f  K W",Pin)
diff --git a/3769/CH14/EX14.15/Ex14_15.sce b/3769/CH14/EX14.15/Ex14_15.sce
new file mode 100644
index 000000000..c951a6fc0
--- /dev/null
+++ b/3769/CH14/EX14.15/Ex14_15.sce
@@ -0,0 +1,12 @@
+clear
+//Given
+Vp=220.0                        //V
+Vs=22                           //V
+Z=220                            //ohm
+Is=0.1
+
+//Calclation
+Ip=(Vs*Is)/Vp
+
+//Result
+printf("\n Current drawn is %0.3f  A", Ip)
diff --git a/3769/CH14/EX14.3/Ex14_3.sce b/3769/CH14/EX14.3/Ex14_3.sce
new file mode 100644
index 000000000..494fb7325
--- /dev/null
+++ b/3769/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,15 @@
+clear
+//Given
+N=150
+A=2*10**-2                       //m**2
+B=0.15                           //T
+f=60
+
+//Calculation
+//
+w=2*%pi*f
+E0=N*A*B*w
+
+//Result
+printf("\n Peak value of e.m.f is %0.0f  V",E0)
+printf("\n Average value of induced e.m.f is zero")
diff --git a/3769/CH14/EX14.4/Ex14_4.sce b/3769/CH14/EX14.4/Ex14_4.sce
new file mode 100644
index 000000000..e92241a68
--- /dev/null
+++ b/3769/CH14/EX14.4/Ex14_4.sce
@@ -0,0 +1,15 @@
+clear
+//Given
+N=100
+A=3
+B=0.04                  //T
+w=60
+R=500                         //ohm
+
+//Calculation
+E0=N*A*B*w
+I0=E0/R
+P=E0*I0
+
+//Result
+printf("\n Maximum power dissipated in the coil is %0.3f  W", P)
diff --git a/3769/CH14/EX14.5/Ex14_5.sce b/3769/CH14/EX14.5/Ex14_5.sce
new file mode 100644
index 000000000..4943f73e0
--- /dev/null
+++ b/3769/CH14/EX14.5/Ex14_5.sce
@@ -0,0 +1,14 @@
+clear
+//Given
+N=100
+A=0.10                        //m**2
+f=0.5                         //Hz
+B=0.01                         //T
+
+//Calculation
+//
+w=2*%pi*f
+E0=N*A*B*w
+
+//Result
+printf("\n Maximum voltage generated in the coil is %0.3f  V",E0)
diff --git a/3769/CH14/EX14.6/Ex14_6.sce b/3769/CH14/EX14.6/Ex14_6.sce
new file mode 100644
index 000000000..097836e48
--- /dev/null
+++ b/3769/CH14/EX14.6/Ex14_6.sce
@@ -0,0 +1,11 @@
+clear
+//Given
+V=240                          //V
+I=5                             //A
+R=4                              //ohm
+
+//Calculation
+Eb=V-(I*R)
+
+//Result
+printf("\n Value of back e.m.f is %0.3f  V", Eb)
diff --git a/3769/CH14/EX14.7/Ex14_7.sce b/3769/CH14/EX14.7/Ex14_7.sce
new file mode 100644
index 000000000..7fa4f037a
--- /dev/null
+++ b/3769/CH14/EX14.7/Ex14_7.sce
@@ -0,0 +1,14 @@
+clear
+//Given
+I=20                    //A
+R=2                     //ohm
+n=0.5                       
+P=2000                    //W
+
+//Calculation
+P1=P/n
+V=P1/I
+Eb=V-(I*R)
+
+//Result
+printf("\n The back e.m.f is %0.3f V \nSupply voltage is %0.3f V",Eb,V)
diff --git a/3769/CH14/EX14.8/Ex14_8.sce b/3769/CH14/EX14.8/Ex14_8.sce
new file mode 100644
index 000000000..f5c7fec35
--- /dev/null
+++ b/3769/CH14/EX14.8/Ex14_8.sce
@@ -0,0 +1,12 @@
+clear
+//Given
+V=100                              //V
+I=6                                //A
+V1=0.7
+
+//Calculation
+Pin=V*I
+R=(V1*Pin)/I**2
+
+//Result
+printf("\n Armature resistance is %0.2f  ohm",R)