summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.18/ii_18.sce
blob: 04c2d8efb3b1d1c8c508bf1120591f90e3b4b5fa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
//Compute the Loss per Kg at a particular frequency.
clc;
clear;

hy_ls=4.9;
f1=50;
maxflux=1;

density=7.5;

d=density*(10^6)/(10^3);

hy_ls_cycle= hy_ls*d/f1;

n=hy_ls_cycle/((maxflux)^1.7);

disp(n,'i) The value of the Co-Efficient= ' )

mflux2=1.8;

f2=25;

hy_ls2=hy_ls*(f2/f1)*((1.8)^1.7);

disp('watt/kg',hy_ls2,'ii) The Loss per kg at 25Hz and 1.8 Wb per square metre= ')