summaryrefslogtreecommitdiff
path: root/3871/CH13/EX13.16/Ex13_16.sce
blob: eb6052971d27d419a1db1ec482decdd6c1fa8714 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//=====================================================================================
//Chapter 13 example 16

clc;
clear all;

//variable declaration
x	= 0.8;		//Kf2/Kf1
y	=1.2;

//Pe2/Pe1 = (Kf2/Kf1)^2 
p	= x^2;		
//Pe2	= p*Pe1;	//
//p1	= (Pe1-Pe2)/Pe1;	
p1	= (1-p)*100;		//percentage change in hysteresis current loss 
p2	= y^2;		
p12	= (y-1)*100;		//percentage change in hysteresis current loss 
p3	=(p2-1)*100;		//percentage change in eddy current loss in %

//result
mprintf("percentage change in hysteresis current loss  = %3.3f percentage decrease",p1);
mprintf("\npercentage change in hysteresis current loss  = %3.3f percentage increase",p12);
mprintf("\npercentage change in eddy current loss in = %3.2f percentage increase",p3);