summaryrefslogtreecommitdiff
path: root/3850/CH39/EX39.4/Ex39_4.sce
blob: 49c4fa7587302a53a41a6bcd1c2f0fcadee883af (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
31
32

//To find the Impedance the Peak Current and Resonant Frequency of the LCR Series Circuit

//Example 39.4

clear;

clc;

L=100*10^-3;//Self Inductance of Inductor inHenry

C=100*10^-6;//Capacitance of Capacitor in Farads

R=120;//Resitance of Resistor in ohms

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

w=100;//Angular Frequency of the AC source

X=(1/(w*C))-(w*L);//Reactance of the Circuit in ohms

Z=sqrt(R^2+X^2);//Total Impedance of the Circuit

printf("Impedance of the LCR Series Circuit = %.0f ohms",Z);

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

printf("\n Peak current Value of the LCR Series Circuit = %.1f A",i0);

f=(1/(2*%pi))*sqrt(1/(L*C));//Resonant Frequency of the Circuit

printf("\n Resonant Frequency of the LCR Series Circuit = %.0f Hz",f);