initial commit / add all books

4 files changed, 68 insertions, 0 deletions

diff --git a/2444/CH3/EX3.1/ex3_1.sce b/2444/CH3/EX3.1/ex3_1.sce
new file mode 100755
index 000000000..28f8705a3
--- /dev/null
+++ b/2444/CH3/EX3.1/ex3_1.sce
@@ -0,0 +1,17 @@
+// Exa 3.1

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+x = 1000;// in AT/m assumed

+y = 0.2;// in T assumed

+a = 9.3;// area in cm^2 

+// Hysteresis loss/m^3/cycle

+H = a*x*y;// in J/m^3/cycle

+disp(H,"Hysteresis loss per cubic meter per cycle in J/m^3/cycle is");

+f = 50;// in Hz

+// Hystersis loss per cubic meter at a frequency of 50Hz 

+h = H*f;// in W

+h = h * 10^-3;// in kW

+disp(h,"Hystersis loss per cubic meter at a frequency of 50Hz in kW is");

diff --git a/2444/CH3/EX3.2/ex3_2.sce b/2444/CH3/EX3.2/ex3_2.sce
new file mode 100755
index 000000000..ff7f88809
--- /dev/null
+++ b/2444/CH3/EX3.2/ex3_2.sce
@@ -0,0 +1,16 @@
+// Exa 3.2

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+a = 93;// in cm^2

+x = 0.1;// in Wb/m^2

+y = 50;// in AT/m

+// Hysteresis loss/m^3/cycle 

+H = a*x*y;// in J/m^3/cycle

+f = 65;// in Hz

+V = 1500;// in cm^3

+V = V * 10^-6;// in m^3

+Ph = H*f*V;// in W

+disp(Ph,"The hysteresis loss in W is");

diff --git a/2444/CH3/EX3.3/ex3_3.sce b/2444/CH3/EX3.3/ex3_3.sce
new file mode 100755
index 000000000..a80b4beb5
--- /dev/null
+++ b/2444/CH3/EX3.3/ex3_3.sce
@@ -0,0 +1,22 @@
+// Exa 3.3

+clc;

+clear;

+close;

+format('v',8)

+// Given data

+Eta =628;// in J/m^3

+Bmax = 1.3;// in T

+f = 25;// in Hz

+m = 50;// in kg

+rho = 7.8*10^3;// in kg/m^3

+V = m/rho;// in m^3

+H = round(Eta*(Bmax^1.6)*f*V);// Hystersis loss in J/s

+H = H * 60 *60;// Hystersis loss in J/hour

+disp(H,"The Hystersis loss per hour in J is");

+h = Eta*(Bmax^1.6);// Hystersis loss/m^3/cycle

+// h = x*y*area of B_H loop

+x = 12.5;// in AT/m

+y = 0.1;// in T

+Area = h/(x*y);// in cm^2

+format('v',5)

+disp(Area,"The area of B-H loop in cm^2 is");

diff --git a/2444/CH3/EX3.4/ex3_4.sce b/2444/CH3/EX3.4/ex3_4.sce
new file mode 100755
index 000000000..f648c23e6
--- /dev/null
+++ b/2444/CH3/EX3.4/ex3_4.sce
@@ -0,0 +1,13 @@
+// Exa 3.4

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+Pe1 = 1600;// in W

+Bmax1 = 1.2;// in T

+f1 = 50;// in Hz

+Bmax2 = 1.5;// in T

+f2 = 60;// in Hz

+Pe2 = Pe1*(Bmax2/Bmax1)^2*(f2/f1)^2;// in W

+disp(Pe2,"The eddy current loss in W is");