summaryrefslogtreecommitdiff
path: root/1319/CH1/EX1.7/1_7.sce
blob: d1ef873aa256deff19880b95c249d104cb8454a8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
// To determine circuit impedance and current in a parallel connection of a resistor and capacitor.

clc;
clear;

R=4700;
V=240;
f=60;
w=2*%pi*f;
C=2*(10^-6);
Xc=-(1/(C*w))*%i;// Reactance in polar form

Ir=V/R;
Ic=V/Xc;

I=Ir+Ic;// Total current

Z=V/I;

theta=atand(imag(Z)/real(Z));

mprintf('Impedance of the circuit =  %f /_ %f ohms',abs(Z),theta)