summaryrefslogtreecommitdiff
path: root/38/CH1/EX1.1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /38/CH1/EX1.1
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 '38/CH1/EX1.1')
-rwxr-xr-x38/CH1/EX1.1/1.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/38/CH1/EX1.1/1.sce b/38/CH1/EX1.1/1.sce
new file mode 100755
index 000000000..d3705bbfa
--- /dev/null
+++ b/38/CH1/EX1.1/1.sce
@@ -0,0 +1,23 @@
+// Caption: Finding reluctances and flux
+
+clear;
+close;
+clc;
+U_r=70000;
+U_o=4*%pi*10^-7;
+
+function [R_c]=reluctance_core(l,A)
+ R_c=l/(U_r*U_o*A);
+endfunction
+disp(reluctance_core(.3,9*10^-4),'Reluctance of the core=')
+
+function [R_g]=reluctance_gap(g,A)
+ R_g=g/(U_o*A);
+endfunction
+disp(reluctance_gap(5*10^-4,9*10^-4),'Reluctance of the gap=')
+
+phy=1.0*9*10^-4;
+disp(phy,'flux=')
+
+i=phy*(reluctance_core(.3,9*10^-4)+reluctance_gap(5*10^-4,9*10^-4))/500;
+disp(i,'current=')