blob: 2d2a71c8e080b318b57999fd29d9c578418cbd5b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
//data
R=2 //ohm/m
G=0.5*10^(-3) //S/m
L=8*10^-9 //H/m
C=0.23*10^-12 //F/m
W=2*%pi*10^9 //Hz
Y=15.29*10^-4*exp(%i*1.2377)
Z=50.31*exp(%i*1.531)
//equation and result
printf("\nresult:-")
Zo=sqrt(complex(R,W*L)/complex(G,W*C))
y=sqrt(Z*Y)
a=real(y)
B=imag(y)
disp(Zo,"Zo=sqrt(complex(R,W*L)/complex(G,W*C))=")
disp(y,"y=sqrt(Z*Y)=")
printf("\na=%.4fNp/m\nB=%.4frad/m",a,B)
|
