s3xm3x
8 years ago
7 changed files with 183 additions and 0 deletions
@ -0,0 +1,30 @@ |
|||
Disp "CALC UNILAT." |
|||
Disp "GAIN" |
|||
Disp "4 ALL CASES" |
|||
Disp "GAMMAS" |
|||
Prompt A |
|||
Disp "GAMMAL" |
|||
Prompt B |
|||
[list]S(1)+([list]S(2)*[list]S(3)*B)/(1-[list]S(4)*B)->C |
|||
(1-abs(A)^2)/abs(1-C*A)^2->G |
|||
Disp "GS",G |
|||
G->X |
|||
10*log(G)->G |
|||
Disp "GS IN DB",G |
|||
Pause |
|||
(1-abs(B)^2)/abs(1-[list]S(4)*B)^2->G |
|||
Disp "GL",G |
|||
X*G->X |
|||
10*log(G)->G |
|||
Disp "GL IN DB",G |
|||
Pause |
|||
abs([list]S(3))^2->G |
|||
Disp "G0",G |
|||
X*G->X |
|||
10*log(G)->G |
|||
Disp "G0 IN DB",G |
|||
Pause |
|||
Disp "GT",X |
|||
10*log(X)->X |
|||
Disp "GT IN DB",X |
|||
|
@ -0,0 +1,23 @@ |
|||
Disp "ENTER" |
|||
Disp "CAVITY" |
|||
Disp "DIMENSIONS" |
|||
Prompt A,B,D |
|||
Disp "ENTER" |
|||
Disp "NO. OF" |
|||
Disp "MAXIMA" |
|||
Prompt M,N,L |
|||
Disp "ENTER" |
|||
Disp "UR AND ER" |
|||
Prompt U,E |
|||
Disp "ENTER" |
|||
Disp "SPECIFIC" |
|||
Disp "CONDUCT." |
|||
Prompt O |
|||
((3*10^8)/(2*[root]^2U*E))*[root]^2(M/A)^2+(N/B)^2+(L/D)^2)->F |
|||
Disp "RESONANCE" |
|||
Disp "AT",F |
|||
Pause |
|||
1/[root]^2F*[pi]^2*4*10^(-1*7)*O*U)->S |
|||
Disp S |
|||
(A*B*D*(A^2+D^2))/(S*(2*B*(A^3+D^3)+A*D*(A^2+D^2)))->Q |
|||
Disp "Q FACTOR",Q |
@ -0,0 +1,29 @@ |
|||
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 |
@ -0,0 +1,14 @@ |
|||
Disp "DES. F IN dB" |
|||
Prompt F,L |
|||
10^(F/10)->F |
|||
((F-10^([list]F(1)/10))/((4*[list]F(3))/[list]F(4)))*abs(1+[list]F(2))^2->N |
|||
Disp "N",N |
|||
[root]^2N*(N+1-abs([list]F(2))^2))/(N+1)->R |
|||
R*L->X |
|||
Disp "RF",R,X |
|||
Pause |
|||
[list]F(2)/(N+1)->C |
|||
abs(C)->X |
|||
abs(C)*L->Y |
|||
angle(C)*(180/[pi])->Z |
|||
Disp "CF",X,Y,Z |
@ -0,0 +1,35 @@ |
|||
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 |
@ -0,0 +1,33 @@ |
|||
Disp "ENTER" |
|||
Disp "PERMIT." |
|||
Prompt E |
|||
Disp "ENTER" |
|||
Disp "RES. FREQ." |
|||
Prompt F |
|||
Disp "ENTER" |
|||
Disp "PCB H." |
|||
Prompt H |
|||
Disp "ENTER" |
|||
Disp "RIN" |
|||
Prompt R |
|||
(3*10^8)/(2*F)*[root]^22/(E+1))->W |
|||
Disp "WIDTH",W |
|||
Pause |
|||
(E+1)/2+((E-1)/2)*(1/[root]^21+12*(H/W)))->E |
|||
Disp "EEFF",E |
|||
Pause |
|||
H*0.412*(((E+0.3)*(W/H+0.264))/((E-0.258)*(W/H+0.8)))->L |
|||
Disp "DELTAL",L |
|||
Pause |
|||
(3*10^8)/([root]^2E)*2*F)->C |
|||
C-2*L->L |
|||
Disp "LENGTH",L |
|||
Pause |
|||
2*[pi]/F->B |
|||
((W*F)/(120*3*10^8))*(1-(1/24)*(B*H)^2)->G |
|||
Disp "GIN",G |
|||
Pause |
|||
(acos([root]^22*R*G)))*(L/[pi])->X |
|||
Disp "SOLUTION 1",X |
|||
(acos(0-[root]^22*R*G)))*(L/[pi])->X |
|||
Disp "SOLUTION 2",X |
@ -0,0 +1,19 @@ |
|||
Disp "ENTER" |
|||
Disp "WAVEGUIDE" |
|||
Disp "DIMENSIONS" |
|||
Prompt A,B |
|||
Disp "ENTER" |
|||
Disp "MAXIMA" |
|||
Prompt M,N |
|||
Disp "ENTER" |
|||
Disp "WAVE VEL." |
|||
Prompt V |
|||
For(I,0,M) |
|||
For(J,0,N) |
|||
0.5*V*[root]^2(I/A)^2+(J/B)^2)->F |
|||
Disp "M",I |
|||
Disp "N",J |
|||
Disp "Fc",F |
|||
Pause |
|||
End |
|||
End |
Loading…
Reference in new issue