Map range: Difference between revisions
→{{header|Common Lisp}}
No edit summary |
Basicgames (talk | contribs) |
||
Line 1,085:
9.0 maps to -0.1
10.0 maps to 0.0</pre>
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">define a1 = 0, b1 = 0, a2 = 0, b2 = 0
define fn (maprange) as b1 + ( s - a1 ) * ( b2 - b1 ) / ( a2 - a1 )
do
let s = i
let a1 = 0
let a2 = 10
let b1 = -1
let b2 = 0
print i, " : ", (maprange)
let i = i + 1
loop i < 11
end</syntaxhighlight>
=={{header|D}}==
| |||