summaryrefslogtreecommitdiff
path: root/1319/CH8/EX8.2/8_2.sce
blob: 5011b1189e70d6c99894a4809ee087b97de49372 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//To calculate motor speed and its slip

clc;
clear;

f=50;
sf=3/2;
s=sf/f;

p=8;
N=120*f/8;

Nr=poly([0 1],'Nr','c'); // Actual Speed Variable

x=(750*s)-(750-Nr); // Equation To find the Actual Speed

Nr=roots(x); // Actual Speed Constant

printf('The motor runs at a speed of %g rpm and has a slip of %g \n',ceil(Nr),s)