summaryrefslogtreecommitdiff
path: root/503/CH3/EX3.29
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /503/CH3/EX3.29
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 '503/CH3/EX3.29')
-rwxr-xr-x503/CH3/EX3.29/ch3_29.sci19
1 files changed, 19 insertions, 0 deletions
diff --git a/503/CH3/EX3.29/ch3_29.sci b/503/CH3/EX3.29/ch3_29.sci
new file mode 100755
index 000000000..cb70ee564
--- /dev/null
+++ b/503/CH3/EX3.29/ch3_29.sci
@@ -0,0 +1,19 @@
+//to calculate L1 and L2 and coupling cofficient
+
+clc;
+a=10;
+V_p=200;
+I_p=4;
+Xm=V_p/I_p;
+f=50;
+L1=Xm/(2*%pi*f);disp(L1,'L1(H)');
+V_s=1950;
+w_max=V_s/(sqrt(2)*%pi*f);
+M=w_max/(sqrt(2)*I_p);
+
+v_s=2000;
+i_s=.41;
+w_max=sqrt(2)*i_s*M;
+E1=sqrt(2)*%pi*f*w_max;
+L2=v_s/(sqrt(2)*%pi*f*sqrt(2)*i_s);disp(L2,'L2(H)');
+k=M/(sqrt(L1)*sqrt(L2));disp(k,'coupling coeff'); \ No newline at end of file