2014-01-17 05:32:22 +00:00
|
|
|
/*REXX program maps a number from one range to another range. */
|
2017-09-23 10:01:46 +02:00
|
|
|
/* 31.10.2013 Walter Pachl */
|
2018-06-22 20:57:24 +00:00
|
|
|
/* 'translated' from an older version 1 without using Procedure */
|
2014-01-17 05:32:22 +00:00
|
|
|
do j=0 to 10
|
|
|
|
|
say right(j,3) ' maps to ' mapRange(0,10,-1,0,j)
|
|
|
|
|
end
|
2015-02-20 00:35:01 -05:00
|
|
|
exit
|
2014-01-17 05:32:22 +00:00
|
|
|
/*──────────────────────────────────MAPRANGE subroutine─────────────────*/
|
|
|
|
|
mapRange: return arg(3)+(arg(5)-arg(1))*(arg(4)-arg(3))/(arg(2)-arg(1))
|
|
|
|
|
/* Arguments are arg a1,a2,b1,b2,x */
|
