summaryrefslogtreecommitdiff
path: root/3809/CH5/EX5.2/EX5_2.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3809/CH5/EX5.2/EX5_2.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3809/CH5/EX5.2/EX5_2.sce')
-rw-r--r--3809/CH5/EX5.2/EX5_2.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/3809/CH5/EX5.2/EX5_2.sce b/3809/CH5/EX5.2/EX5_2.sce
new file mode 100644
index 000000000..925718d88
--- /dev/null
+++ b/3809/CH5/EX5.2/EX5_2.sce
@@ -0,0 +1,22 @@
+//Chapter 5, Example 5.2
+
+clc
+//Initialisation'
+i=6 //current in amp
+n=500 //no of turns
+l=0.4 //mean circumference
+pi=3.14 //pi
+uo=4*pi*10**-7 //dielectric constant
+a=300*10**-6 //area
+
+//Calculation
+f=i*n //force
+h=f/l //magnetic field strength
+B=uo*h //magnetic induction
+phi=B*a //total flux
+
+//Results
+printf("(a) Force F = %d ampere-turns\n",f)
+printf("(b) Magnetic Field Strength, H = %d A/m\n",h)
+printf("(c) Magnetic Induction, B = %.2f mT\n",B*10**3)
+printf("(d) Total Flux, phi = %.2f uWb\n",phi*10**6)