diff options
Diffstat (limited to '2672/CH2/EX2.21/Ex2_21.sce')
| -rwxr-xr-x | 2672/CH2/EX2.21/Ex2_21.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/2672/CH2/EX2.21/Ex2_21.sce b/2672/CH2/EX2.21/Ex2_21.sce new file mode 100755 index 000000000..fb5adc7fb --- /dev/null +++ b/2672/CH2/EX2.21/Ex2_21.sce @@ -0,0 +1,19 @@ +//Ex_2_21
+clc;
+clear;
+close;
+format('v',4);
+//given data :
+N=500;//turns
+A=0.01;//m^2(Area of cross section of poles)
+l=0.5;//m(mean length)
+mu0=4*%pi*10^-7;//permeability of air
+mu_r=1000;///relative permeability
+g=9.8;//gravitational acceleration
+W=200;//kg
+F=W/2;//kg
+F=F*g;//N
+B=sqrt(F*2*mu0/A);//Wb/m^2
+H=B/mu0/mu_r;//Wb/m^2
+I=H*l/N;//A
+disp(I,"Exciting current(A)");
|