blob: 1115b8538b536a2ee040b8b90ff5aa56578db9dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
//Electric Drives:concepts and applications by V.subrahmanyam
//Publisher:Tata McGraw-Hill
//Edition:Second
//Ex3_15
clc;
clear;
R=1.5;//Resistance in ohm
L=3;//Inductance in H
Ton=2;//Time in ms
T=6;//Time in ms
Vs=150;//Supply voltage in V
t=Ton/T;
tON=L/R;
Vavg=T*Vs;
Iavg=Vavg/R;
P=(Iavg)^2*R;
Io=23.032;
I=1-exp(-t);
I1=Io*exp(-t);
Imax=(Vs/R)*I+I1;
disp(Imax,"Maximum current in A is:")
Imin=Imax*exp(-2*t);
disp(Imin,"Minimum current in A is:")
|
