summaryrefslogtreecommitdiff
path: root/3557/CH18/EX18.6/Ex18_6.sce
blob: 23cd0d564814d302dda689d0a234268ee0ac8188 (plain)
1
2
3
4
5
6
7
8
9
//Example18.6//

a=8.9*10^4;//(amperes/m)(webers/m^2) // Area
mprintf("a= %e (amperes.webers)/m^3",a)
//one ampere weber is equal to 1joule. The area is then a volume density of energy ,or
e=8.9*10^4//J/m^3 //energy loss
b= 10^-3; //As 1Kilogram = 10^3 gram
e1=e*b
mprintf("\ne1 = %i kJ/m^3 (per cycle) (As 1Kilogram = 10^3 garm)",e1)