correct the Tsun function

278 <-- can this be changed to a constant (STATIC FINAL)?