|
( ( mapRange
|
|
= a1,a2,b1,b2,s
|
|
. !arg:(?a1,?a2.?b1,?b2.?s)
|
|
& !b1+(!s+-1*!a1)*(!b2+-1*!b1)*(!a2+-1*!a1)^-1
|
|
)
|
|
& out$"Mapping [0,10] to [-1,0] at intervals of 1:"
|
|
& 0:?n
|
|
& whl
|
|
' ( !n:~>10
|
|
& out$("f(" !n ") = " flt$(mapRange$(0,10.-1,0.!n),2))
|
|
& 1+!n:?n
|
|
)
|
|
);
|