summaryrefslogtreecommitdiff
path: root/147/CH14/EX14.16/Example14_16.sce
blob: 5aec7f4da0ebb100aca937df27bf6b3d65400041 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Armature resistance Ra, Field resistance Rg, Speed of generator N
//Rating of Generator and Motor Pr,V
close();
clear;
clc;
Pr = 10000;//W
V = 250;//V
Ra = 0.1;//ohm
Rf = 250;
N = 800;
//As generator
If = V/Rf;
Il = Pr/V;
Ia = If+Il;
Eg = V + Ia*Ra;
//As a motor
Il = Pr/V;
If = V/Rf;
Ia = Il - If;
Em = V - Ia*Ra;
ng = Em/Eg*N;
mprintf('Speed of the motor = %0.1f rpm',ng);