11 lines
319 B
Text
11 lines
319 B
Text
' Map range
|
|
DECLARE FUNCTION MapRange (S#, A1#, A2#, B1#, B2#) AS DOUBLE
|
|
FOR I = 0 TO 10
|
|
PRINT FORMAT$("%4.1f", I); " maps to ";
|
|
PRINT FORMAT$("%4.1f", MapRange(I, 0, 10, -1, 0))
|
|
NEXT I
|
|
END
|
|
|
|
FUNCTION MapRange (S#, A1#, A2#, B1#, B2#) AS DOUBLE
|
|
MapRange = B1# + (S# - A1#) * (B2# - B1#) / (A2# - A1#)
|
|
END FUNCTION
|