blob: 59771cf311ca65d9a195507033dd63cd915f28b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Electric Drives:concepts and applications by V.subrahmanyam
//Publisher:Tata McGraw-Hill
//Edition:Second
//Ex4_1
clc;
clear;
Eb=50;// voltage in V
V=120;// voltage in V
f=50;//frequency in Hz
R=10;// Resistance in ohm
a=asin(Eb/(sqrt(2)*V));
Alpha=(a*180)/%pi;
pf=0.9556;
Iavg=(1/(2*%pi*R))*((2*sqrt(2)*V*pf)-(Eb*(%pi-(2*Alpha))));
disp(Iavg,"Current Iavg in A is:")
|
