summaryrefslogtreecommitdiff
path: root/1319/CH1/EX1.9/1_9.sce
blob: 716cc9de9449da2b7f1d464c15619b3717fb72c1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// Maximum current and frequncy at which it occurs and respective voltages

clc;
clear;

R=5;
L=4*(10^-3);
C=0.1*(10^-6);
V=10;

w0=1/(sqrt(L*C));

Ir=V/R;

Vl=w0*L*Ir;

Vc=Ir/(w0*C);

mprintf('The Maximum Current at resonance = %f A \n',Ir)
mprintf('The frequency for resonance = %f rad/sec \n',w0)
mprintf('The voltage magnitude across the inductor = %f V \n',Vl)
mprintf('The voltage magnitude across the capacitor = %f V \n',Vc)