Download or view sizesort.frink in plain text format
setPrecision[40]
// Sort units by size
ulist = sort[units[time], { |a,b| unit[a] <=> unit[b] }]
last=unit[ulist@0]
index = 1
size = length[ulist]
mag = 1
while(index < size)
{
current = unit[ulist@index]
factor = current/last
println[factor->1.]
mag = mag * factor
last = current
index = index + 1
}
md = last / unit[ulist@0]
println["Magnitude difference is " + md]
println["Mag is: " + mag]
println["Error: " + abs[md-mag]/md]
Download or view sizesort.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 20139 days, 6 hours, 39 minutes ago.