blob: b8ec49b477a81eb1f8a0175f1bc2a3735a3118f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
//to find resistance added to ckt
clc;
Rrot=.061;
R2=Rrot/2;
f=50;
P=12;
w_s=(120*f/P)*(2*%pi/60);
s=0.045;
w=(1-s)*w_s;
P=200*10^3;
T_fan=P/w;
I2=sqrt(T_fan*w_s*s/(3*R2));
E2=I2*R2/s;
n=450;
ww=2*%pi*n/60;
nn=500;
ss=(nn-n)/nn;
Tnew=T_fan*(ww/w)^2;
Rt=(3/w_s)*(E2*ss)^2/(ss*Tnew);
Rext=Rt-R2;disp(Rext,'external resistance(ohm)');
|
