Xcos examples from textbooks and for blocksHEADmaster

1 files changed, 42 insertions, 0 deletions

diff --git a/Working_Examples/293/CH15/EX15.1/eg15_1.sce b/Working_Examples/293/CH15/EX15.1/eg15_1.sce
new file mode 100755
index 0000000..2417766
--- /dev/null
+++ b/Working_Examples/293/CH15/EX15.1/eg15_1.sce
@@ -0,0 +1,42 @@
+//a

+phi = 6*10^-4; //given magnetic flux (in Wb)

+A = 0.001; // cross sectional area (in meter square)

+B = phi/A ; //

+Ha = 10; //magnetic field intensity of material a needed to establish   the given magnetic flux 

+Hb = 77; // magnetic field intensity of material b

+Hc = 270; // magnetic field intensity of material c

+La = 0.3; //arc length of material a (in meters)

+Lb = 0.2; //arc length of material b (in meters) 

+Lc = 0.1; //arc length of material c (in meters)

+

+F = Ha*La + Hb*Lb + Hc*Lc; //magnetomotive force

+disp("a")

+disp(F, "magnetomotive force needed to establish a flux of 6*10^-4(in At) = ")

+

+//b

+N = 100; //no. of turns 

+I = F/N; //current in amps

+disp("b")

+disp(I,"current that must be made to flow through the coil(in amps) = ")

+

+//c

+MU0 = 4*%pi*10^-7; 

+MUa = B/Ha; //permeability of material a

+MUb = B/Hb; //permeability of material b

+MUc = B/Hc; //permeability of material c

+

+MUra = MUa/MU0; //relative permeability of material a

+MUrb = MUb/MU0; //relative permeability of material b

+MUrc = MUc/MU0; //relative permeability of material c

+

+Ra = Ha*La/phi; //reluctance of material a 

+Rb = Hb*Lb/phi; //reluctance of material b

+Rc = Hc*Lc/phi; //reluctance of material c

+

+disp("c")

+disp(MUra,"relative permeability of material a = ")

+disp(MUrb,"relative permeability of material b = ")

+disp(MUrc,"relative permeability of material c = ")

+disp(Ra,"reluctance of material a = ")

+disp(Rb,"reluctance of material b = ")

+disp(Rc,"reluctance of material c = ")
\ No newline at end of file