summaryrefslogtreecommitdiff
path: root/1964/CH4/EX4.6
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1964/CH4/EX4.6
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1964/CH4/EX4.6')
-rwxr-xr-x1964/CH4/EX4.6/ex4_6.sce25
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==============================