3835/CH4/EX4.19/Ex4_19.sce


1
2
3
4
5
6
7
8
9
10
11

clear
//
r=20
l=200*10**-3
v=230
f=50
xl=314*l //314 is omega
ir=v/(r)
il=v/(xl)
i=((ir**2)+(il**2))**0.5
printf("\n i= %0.1f  A",i)