10 REM LINEARIZER PROGRAM BY RUSS KINCAID
15 REM SEE EDN 15 NOV 1971 PAGE 36
20 PRINT"HOW MANY LINEAR SEGMENTS ";
30 INPUT N
40 INPUT"POS OR NEG SLOPES ";S$
60 IF LEFT$(S$,1)="N" THEN 90
70 LET D=-.5
80 GOTO 100
90 LET D=.5
100 PRINT"SPECIFY SLOPES,BREAKPOINT VOLTAGES:"
110 FOR J=1 TO N
120 PRINT"S(";J-1;")","E(";J;")";
130 INPUT S(J-1),E(J)
140 NEXT J
150 PRINT"WHAT IS R0,E bias";
160 INPUT R0,E
170 PRINT \ PRINT
190 PRINT"SECTION NO.","A - OHMS","B - OHMS"
200 FOR J=1 TO N-1
210 LET G(J)=S(0)/S(J)
220 LET R(J)=R0*G(J)/(1-G(J))
230 LET V=(E-E(J)-D)/(E(J)+D)
240 IF J=1 THEN 270
250 LET B(J)=R(J)*R(J-1)*(V+1)/V/(R(J-1)-R(J))
260 GOTO 280
270 LET B(J)=R(J)*(V+1)/V
280 PRINT J,V*B(J),B(J)
290 NEXT J
300 END

NUTRON::