summaryrefslogtreecommitdiff
path: root/1418/CH26/EX26.30/EX26_30.sce
blob: aa8132387e42d1228e75a9242f2e7586eabd6158 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//EXAMPLE 26.30
//DC MACHINE

clc;
funcprot(0);

//Variable Initialisation
N1=1000;.........//Speed of the generator in rpm
Wh=250;...........//Hysteresis loss in Watts
We=100;...........//Eddy current loss in Watts


//Total loss W= Wh+We=AN+BN^2 (equation 1)
A=Wh/(N1/60);..........//Constant in Watts
B=We/(N1/60)^2;........//Constant in Watts

L=(Wh+We)/2;.........//Given:Total loss halved at speed N rpm in Watts
N=poly(0,'N');
W=(A*N)+(B*N^2)-(L);.........//(equation 1)
r=roots(W)*60;..................//Speed at which total iron losses is halved in rpm 
printf("Speed at which total iron losses is halved in rpm: %d",r(2));....//Negatiive root ignored