summaryrefslogtreecommitdiff
path: root/1319/CH8/EX8.4/8_4.sce
blob: c3c27ddbb86aa8e6cbe03bb8c70b2a6c65a1a93b (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
//Calculation of slip from losses

clc;
clear;

eff=0.9; // Efficiency
P=50*735; // Load in watts
x=poly([0 1],'x','c'); // Rotor Copper Loss Variable

tx=(x+x+x+(x/3)); // Total loss

loss=((P+tx)*eff)-P; // Equation to calculate x

x=roots(loss); // Rotor Copper Loss Constant

s=poly([0 1],'s','c'); // Variable for slip
slip=(P*s)-(x*(1-s));// Gives the variable equation of slip

s=roots(slip); // Numerical Value of slip

printf('The slip of an induction motor of 0.9 efficiency at 50 HP load = %g \n',s)