summaryrefslogtreecommitdiff
path: root/695/CH2/EX2.47/Ex2_47.sce
blob: fd6cd8773511ad9ff493abe20a32e46b42dcfaf7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Caption:Find the new speed as a percentage of the original speed
//Exa:2.47
clc;
clear;
close;
V=400;//in volts
R_f=200;//in ohms
I_1=25;//in amperes
I_f=V/R_f;
I_a1=I_1-I_f;
x=(-V+sqrt(V^2+4*345*400))/(2*345);
disp(x*100,'New Speed is= ');
disp('percent of original speed')