1 files changed, 25 insertions, 0 deletions
diff --git a/2297/CH3/EX3.1/Ex3_1.sce b/2297/CH3/EX3.1/Ex3_1.sce
new file mode 100755
index 000000000..0d137bff9
--- /dev/null
+++ b/2297/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,25 @@
+// Example 3.1;amper-turns
+clc;
+close;
+clear;
+// given :
+format('v',7)
+bt=[2;2.5;3.0];//making equations from Table
+H=[400 ;600;800];//making equations from Tble
+fsl=10^-3;//Flux in Wb
+cal=4*10^-4;//area in m^2
+fdl=fsl/cal;//magnetic field in Tesla
+hl=H(2);//AT/m 
+pll=0.57;//lenth in meter (path length 2345)
+at2345=pll*hl;//ampere turns
+fcl=2*10^-3;//magnetic field in Wb
+fdcl=fcl/cal;//in Tesla
+hcl=H(1);//in AT/m
+lcl=169;//length in mm
+atcl=(lcl*10^-3)*hcl;//ampere turns
+l=1;//length mm
+Hl=((4*%pi))*10^-7;//AT/m
+atrg=fcl/Hl;//AT
+tat=at2345+atcl+atrg;//total ampere turns
+disp(tat,"total ampere-turns required is, (AT)=")
+