diff options
Diffstat (limited to '3871/CH13/EX13.17/Ex13_17.sce')
| -rw-r--r-- | 3871/CH13/EX13.17/Ex13_17.sce | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/3871/CH13/EX13.17/Ex13_17.sce b/3871/CH13/EX13.17/Ex13_17.sce new file mode 100644 index 000000000..693a5f32f --- /dev/null +++ b/3871/CH13/EX13.17/Ex13_17.sce @@ -0,0 +1,26 @@ +//=====================================================================================
+//Chapter 13 example 17
+
+clc;
+clear all;
+
+//variable declaration
+w = 0.03; //width of plates in m
+n = 51; //number of plates
+t = 0.000489; //thickness in m^3
+f = 50; //frequency in Hz
+Bmax = 1;
+N = 600;
+P1 = 3; //copper loss in watts
+m = 11; //weight in kg
+
+//calculations
+A = w*n*t; //mean area of plates in m^3
+E = 4.44*f*Bmax*A*N; //induced voltage in V
+//from graph corresponding to voltage of 100 volts
+P2 = 30.5; //total losses in watts
+P = P2-P1; //iron loss in watts
+PL = P/m; //loss per kg in watts
+
+//result
+mprintf("iron loss per kg = %3.2f watts",PL);
|