summaryrefslogtreecommitdiff
path: root/1892/CH1/EX1.39/Example1_39.sce
blob: 560b18512e3c2525e2c309bd3ee68664ae089597 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// Example 1.39

clear; clc; close;

format('v',7);
// Given data
Pin=50;//in KW
StatorLoss=800;//in watts
f=50;//in Hz
fr=90;//cycles/min

//Calculations
fr=fr/60;//in Hz
S=fr/f;//slip
P2=Pin*1000-StatorLoss;//watts
//Formula : P2:Pc:Pm=1:S:1-S
Pm=P2*(1-S);//in watts
disp(Pm,"Total Mechanical power devloped in watts : ");