summaryrefslogtreecommitdiff
path: root/3850/CH39/EX39.3/Ex39_3.sce
blob: d989ae8b3768f3b40053841f118dcbb72ca4b7ea (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
25
26
27
28
29
30

//To Find the Peak Value of Current and the Instantaneous Voltage of the source when the current is at its peak value

//Example 39.3

clear;

clc;

f=50;//Frequency of AC source in Hz

L=200*10^-3;//Self Inductance of Inductor in Henry

Xl=2*%pi*f*L;//Reactance of the Inductor in ohms

E0=210;//Peak EMF Value of AC source in Volts

i0=E0/Xl;//Peak Value of Current in Amperes

printf("Peak Value of current = %.1f A",i0);

i=i0;//Instantaneous Value of Current when current attains its peak value

phi=-%pi/2;//Phase Difference in Radians for a purely Inductive Circuit

t=(asin(i/i0)-phi)/(2*%pi*f);//Time at which current attains its peak value

E=E0*sin(2*%pi*f*t);//Instantaneous Voltage for a purely inductive circuit

printf("\n Instantaneous voltage at peak value of Current = %.0f V",E);