summaryrefslogtreecommitdiff
path: root/2384/CH4/EX4.30/ex4_30.sce
blob: 78674001ed80b02ba511266e59a296abfb124416 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// Exa 4.30
clc;
clear;
close;
format('v',6)
// Given data
R = 4;// in ohm
L = 0.5;// in H
V = 100;// in V
f = 50;// in Hz
X_L = 2*%pi*f*L;// in ohm
X_C = X_L;// in ohm
// X_C = 1/(2*%pi*f*C);
C = 1/(X_C*2*%pi*f);// in F
C = C * 10^6;// in F
disp(C,"The value of capacitance in µF is");
I = V/R;// in A]
V_C = I*X_C;// in V
disp(V_C,"The voltage across the capacitance in V");
omega = 2*%pi*f;// in rad/sec
Q = (omega*L)/R;
disp(Q,"The Q factor of the circuit is");