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.
35 lines
553 B
35 lines
553 B
Disp "ENTER"
|
|
Disp "DESIGN CHOICE"
|
|
Disp "FOR GAMMAL"
|
|
Prompt L
|
|
[list]S(1)+([list]S(2)*[list]S(3)*L)/(1-[list]S(4)*L)->I
|
|
abs(I)->X
|
|
angle(I)*(180/[pi])->Y
|
|
Disp "GAMMA IN",X,Y
|
|
Disp "ENTER Z0"
|
|
Prompt Z
|
|
Z*(1+I)/(1-I)->I
|
|
real(I)->X
|
|
imag(I)->Y
|
|
Disp "REAL(ZIN)",X
|
|
Disp "IMAG(ZIN)",Y
|
|
Pause
|
|
Disp "DESIGN PARAMS"
|
|
Disp "ARE"
|
|
[neg]X/3->X
|
|
X/Z->A
|
|
[neg]Y->Y
|
|
Y/Z->B
|
|
Disp "RS=-RIN/3",X
|
|
Disp "NORMALIZED",A
|
|
Pause
|
|
Disp "XS=-XIN",Y
|
|
Disp "NORMALIZED",B
|
|
Disp "LENGTH 1?"
|
|
Prompt B
|
|
X+[root]^2[neg]1)*Y->C
|
|
(C-Z)/(C+Z)->C
|
|
abs(C)->X
|
|
X*B->Y
|
|
angle(C)*(180/[pi])->Z
|
|
Disp "GAMMAS",X,Y,Z
|
|
|