14 lines
427 B
Plaintext
14 lines
427 B
Plaintext
100 REM Map range
|
|
110 DEF FN MR(S) = B1 + (S - A1) * (B2 - B1) / (A2 - A1)
|
|
120 A1 = 0: A2 = 10: B1 = -1: B2 = 0
|
|
130 FOR X = A1 TO A2 STEP 2
|
|
140 PRINT USING "## maps to ##.#"; X; FN MR(X)
|
|
150 NEXT X
|
|
160 REM Inverse mapping to illustrate change of parameters
|
|
170 PRINT: PRINT "Inverse mapping:"
|
|
180 A1 = -1: A2 = 0: B1 = 0: B2 = 10
|
|
190 FOR X = A1 TO A2 STEP .2
|
|
200 PRINT USING "##.# maps to ##"; X; FN MR(X)
|
|
210 NEXT X
|
|
220 END
|