1367/CH14/EX14.3/14_3.sce


1
2
3
4
5
6
7
8
9
10

//Find Power loss due to Hysteresis
//Ex:14.3
clc;
clear;
close;
a=600;//loop area in J/sqm
f=50;//in Hz
v=0.01//volume in cu. m
w=a*f*v;//in W
disp(w,"Power loss due to Hysteresis (in W) = ");