From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 503/CH5/EX5.19/ch5_19.sci | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 503/CH5/EX5.19/ch5_19.sci

(limited to '503/CH5/EX5.19')

diff --git a/503/CH5/EX5.19/ch5_19.sci b/503/CH5/EX5.19/ch5_19.sci
new file mode 100755
index 000000000..0ddd488ca
--- /dev/null
+++ b/503/CH5/EX5.19/ch5_19.sci
@@ -0,0 +1,21 @@
+// to calculate amplitude of travelling wave mmf,peak value of air flux density, velocity of wave, current freq at some desired velocity
+
+clc;
+K_w=.925;
+N_ph=48;
+I=750/sqrt(2);
+wndnglgth=2;
+wavelgth=wndnglgth/0.5;
+p=2*wavelgth;
+F_peak=(3/2)*(4*sqrt(2)/%pi)*K_w*(N_ph/p)*I;
+disp(F_peak,'F_peak(A/m)');
+g=.01;
+u_o=4*%pi*10^-7;
+B_peak=u_o*F_peak/g;
+disp(B_peak,'B_peak(T)');
+f=25;
+B=.5;
+v=f*B;    disp(v,'velocity(m/s)');
+vv=72*10^3/3600;        //given velocity
+f=vv/0.5;
+disp(f,'freq(Hz)');
\ No newline at end of file
-- 
cgit