summaryrefslogtreecommitdiff
path: root/3875/CH1/EX1.6/Ex1_6.sce
blob: f22eb016173544a078a2f2ceb8ccb8ea6510b082 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc;
clear;
R=50 //resistance in ohm
C=25 //capacitance in micro-F
L=0.15 //inductance in H
V=230 //voltage in Volts
f=50 //frequency in Hz

//calculation 
XL=2*%pi*f*L //in ohm
XC=(10^6)/(2*%pi*f*C) //in ohm
X=XL-XC //in ohm
Z=sqrt(R^2+X^2)
I=V/Z
pf=R/Z
power_consumed=V*I*pf

mprintf("(i)Impedance = %2.1f ohm\n",Z) //The answers vary due to round off error
mprintf("(ii)Current = %1.2f A\n",I) //The answers vary due to round off error
mprintf("(iii)Power Factor = %1.2f (Lead)\n",pf)
mprintf("(iv)Power Consumed = %d W",power_consumed) //The answers vary due to round off error