1 files changed, 23 insertions, 0 deletions
diff --git a/608/CH38/EX38.03/38_03.sce b/608/CH38/EX38.03/38_03.sce
new file mode 100755
index 000000000..2db1c3360
--- /dev/null
+++ b/608/CH38/EX38.03/38_03.sce
@@ -0,0 +1,23 @@
+//Problem 38.03: A ferromagnetic ring has a uniform cross-sectional area of 2000 mm2 and a mean circumference of 1000 mm. A hysteresis loop obtained for the specimen is plotted to scales of 10 mm = 0.1 T and 10 mm = 400 A/m and is found to have an area of 104 mm2. Determine the hysteresis loss at a frequency of 80 Hz.
+
+//initializing the variables:
+csa = 0.002; // in m2
+l = 1; // in m
+a = 400/0.01; // 10 mm = 400 A/m 
+b = 0.1/0.01; // 10 mm = 0.1 T 
+A = 0.01; // in m2
+f = 80; // in Hz
+
+//calculation: 
+//hysteresis loss per cycle
+HL = A*a*b
+//At a frequency of 80 Hz,
+//hysteresis loss
+HLf = HL*f
+//Volume of ring
+v = csa*l
+//hysteresis loss
+Ph = HLf*v
+
+printf("\n\n Result \n\n")
+printf("\n the hysteresis loss at a frequency of 80 Hz is %.0f W",Ph)
+\ No newline at end of file