summaryrefslogtreecommitdiff
path: root/3760/CH2/EX2.6/Ex2_6.sce
blob: b94e01698c63231185d8ca8d8ac027b6d8f13719 (plain)
1
2
3
4
5
6
7
8
clc;
g=0.003; // gap length
wp=0.006; // pole width
B=0.8; // flux density in air gap
uo=4*%pi*10^-7; // free space permeability
// after the derivation of expression
fe=(B^2*wp*g)/(2*uo);
printf('Force tending to bring electromagnets into axial alignment is %f N',fe);