summaryrefslogtreecommitdiff
path: root/3836/CH15/EX15.7/Ex15_7.sce
blob: 7663289a5c987e2ae7102cad42e742a8e36abfd1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear
//

//Initialisation
I=5                   //sinusoidal Current
R=200                  //Resistance in Ohm
f=50                  //Frequency in Hertz
L=400*10**-3               //Inductancec in Henry
C=50*10**-6               //Capacitance in Henry 

//Calculation 
Vr=I*R                         //Voltage across resistor
Xl=2*%pi*f*L               //Reactance
Xc=1/(2*%pi*f*C)                //Reactance
i=Xl-Xc

//Result
printf("\n Z = %d + j %d Ohms",R,i)