summaryrefslogtreecommitdiff
path: root/3835/CH4/EX4.32/Ex4_32.sce
blob: f53d9b5c1bffc049888183cecb1f790392f3a54d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clear
//
r=1500
l=0.2
v=1.5
f=15000
//case a
//p=1/0.2c
p=(4*3.14*3.14*f**2)+(r**2)/(l**2)
c=1/(0.2*p)
printf("\n c= %e  F",c)
//case b
z=l/(c*r)
printf("\n z= %0.1f  ohm",z)
//case c
i=v/(z)
printf("\n i= %0.1f  A",i)