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