summaryrefslogtreecommitdiff
path: root/3875/CH1/EX1.5/Ex1_5.sce
blob: 95bf614cae3f25c85f5a353a317500f128115452 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc;
clear;
phi=45 //since the EMF is ahead of the current by 55-10 in degree
omega=3000 //frequency in radian/s
L=0.01 //inductance in H
E0=141.4
I0=5

//calculation
Z1=sqrt(2) //*R first equation for Z
Z2=E0/I0//second equation for Z
R=Z2/Z1 //resistance in ohm 
L_omega=L*omega //in ohm
C=1/((L_omega-R)*omega)

mprintf("Resistance is = %d ohm\n",R) //The answers vary due to round off error
mprintf("Capacitance is = %2.2e F\n",C)