Upload some code.

ALLGAIN.til

@@ -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
+

CAV.til

@@ -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

MICROST.til

@@ -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

NOISECIRC.til

@@ -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

OSCI.til

@@ -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

PATCHA.til

@@ -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

WAVMODS.til

@@ -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