23 lines
650 B
Text
23 lines
650 B
Text
dim DR(38) 'decimal range
|
|
dim PF(38) 'corresponding price fraction
|
|
range$="0.06 0.11 0.16 0.21 0.26 0.31 0.36 0.41 0.46 0.51 0.56 0.61 0.66 0.71 0.76 0.81 0.86 0.91 0.96 0.01"
|
|
frac$="0.10 0.18 0.26 0.32 0.38 0.44 0.50 0.54 0.58 0.62 0.66 0.70 0.74 0.78 0.82 0.86 0.90 0.94 0.98 1.00"
|
|
for i = 1 to 38
|
|
DR(i)=val(word$(range$,i))
|
|
PF(i)=val(word$(frac$,i))
|
|
next
|
|
|
|
for i = 0 to .99 step 0.03
|
|
print i;" -> ";PriceFraction(i)
|
|
next
|
|
end
|
|
|
|
Function PriceFraction(n)
|
|
PriceFraction=n 'return original if outside test bounds
|
|
for i = 1 to 38
|
|
if n<=DR(i) then
|
|
PriceFraction=PF(i)
|
|
exit for
|
|
end if
|
|
next
|
|
end function
|