From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2444/CH3/EX3.1/ex3_1.sce | 17 +++++++++++++++++
 2444/CH3/EX3.2/ex3_2.sce | 16 ++++++++++++++++
 2444/CH3/EX3.3/ex3_3.sce | 22 ++++++++++++++++++++++
 2444/CH3/EX3.4/ex3_4.sce | 13 +++++++++++++
 4 files changed, 68 insertions(+)
 create mode 100755 2444/CH3/EX3.1/ex3_1.sce
 create mode 100755 2444/CH3/EX3.2/ex3_2.sce
 create mode 100755 2444/CH3/EX3.3/ex3_3.sce
 create mode 100755 2444/CH3/EX3.4/ex3_4.sce

(limited to '2444/CH3')

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");
-- 
cgit