Unanswered Question of the Day: The Equation of Time

[xv]

2. The equation of time is not actually an equation. This is an older sense of the word "equation," that doesn't refer to a short mathematical expression with an equal sign, but rather the sense of "equating" one thing to another. So it would more accurately be called the translation of time or the relation or conversion of time. The two forms of

Comments

[xv]

Alright, here is a very rudimentary script that uses data from here:
http://aa.usno.navy.mil/data/docs/RS_OneYear.php

It's just finding solar noon for today, as well as the time two hours before and four hours after:

set jul to {{537, 1930}, {537, 1930}, {537, 1930}, {538, 1930}, {538, 1930}, {539, 1930}, {539, 1930}, {540, 1930}, {540, 1929}, {540, 1929}, {541, 1929}, {541, 1929}, {542, 1929}, {542, 1928}, {543, 1928}, {543, 1928}, {544, 1927}, {544, 1927}, {545, 1927}, {545, 1926}, {546, 1926}, {547, 1925}, {547, 1925}, {548, 1924}, {548, 1924}, {549, 1923}, {549, 1923}, {550, 1922}, {550, 1921}, {551, 1921}, {551, 1920}}
set z to {}

tell 1st item of (item ((current date)'s day) of jul) as string to set x to (items 1 thru (length - 2) as string as integer) * 60 + (items -1 thru -2 as string as integer)
tell 2nd item of (item ((current date)'s day) of jul) as string to set y to (items 1 thru (length - 2) as string as integer) * 60 + (items -1 thru -2 as string as integer)

tell (x + ((y - x) div 2)) to repeat with i in {it - (2 * 60), it, it + (4 * 60)}
set z to z & ("" & i div 60 & ":" & i mod 60)
end repeat