1 files changed, 25 insertions, 0 deletions
diff --git a/1964/CH4/EX4.6/ex4_6.sce b/1964/CH4/EX4.6/ex4_6.sce
new file mode 100755
index 000000000..ae28b3d03
--- /dev/null
+++ b/1964/CH4/EX4.6/ex4_6.sce
@@ -0,0 +1,25 @@
+//Chapter-4, Example 4.6, Page 134
+//=============================================================================
+clc
+clear
+//INPUT DATA
+N=200;//no of turns
+a=250;//area of cross-section in sq.cm
+Bm=0.5;//magnetic field strength in Tesla
+speed=1200;//in r.p.m
+//CALCULATIONS
+w=2*%pi*(speed/60);//angular freq in rad/sec
+phi=Bm*a*10^-4;//area taken in sq.m
+Em=N*w*phi;//maximum value of induced Emf
+mprintf("maximum value of induced Emf is %d volts\n",Em);
+//equation for instantaneous induced emf is e=Em*sin(w*t)
+//when  plane of coil is parallel to field ,theta is 90 degrees
+e1=Em*sin(%pi/2);//converted degrees to radians
+mprintf("when  plane of coil is parallel to field, induced Emf is %d volts\n",e1);
+//when plane of coil is parallel to field ,theta is 0 degrees
+e2=Em*sin(0);
+mprintf("when  plane of coil is perpendicular to field, induced Emf is %d volts\n",e2);
+//when plane of coli is inclined at 45 degrees to the field
+e3=Em*sin(%pi/4);
+mprintf("when  plane of coil is at 45 degrees to field, induced Emf is %d volts\n",e3);
+//=================================END OF PROGRAM==============================