You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
527 B
30 lines
527 B
8 years ago
|
Disp "ENTER Z0"
|
||
|
Prompt Z
|
||
|
Disp "ENTER FREQ."
|
||
|
Prompt F
|
||
|
Disp "ENTER PCB"
|
||
|
Disp "THICKNESS"
|
||
|
Disp "IN M"
|
||
|
Prompt D
|
||
|
Disp "ENTER"
|
||
|
Disp "PERMITTIVITY"
|
||
|
Prompt E
|
||
|
Disp "ENTER"
|
||
|
Disp "PHASE"
|
||
|
Disp "IN DEG"
|
||
|
Prompt P
|
||
|
(Z/60)*[root]^2E+1)/2+((E-1)/(E+1))*(0.23+0.11/E)->A
|
||
|
(377*[pi])/(2*Z*[root]^2E))->B
|
||
|
(8*e^A)/(e^(2*A)-2)->W
|
||
|
If (W>2)
|
||
|
Then
|
||
|
(2/[pi])*(B-1-ln(2*B-1)+((E-1)/(2*E))*(ln(B-1)+0.39-0.61/E))->W
|
||
|
End
|
||
|
W*D->W
|
||
|
Disp "WIDTH",W
|
||
|
Pause
|
||
|
(E+1)/2+((E-1)/2)*(1/[root]^21+12*D*(1/W))->R
|
||
|
((3*10^8)/([root]^2R)*F))*(P/360)->L
|
||
|
Disp "LENGTH"
|
||
|
Disp "IN M",L
|