Casio50 » fx-3x50P » Programs 程式集 » Calendar & Time 日期與時間 »
Casio50 » fx-3x50P » Programs 程式集 » Integrated Science 綜合科學 »

Sunrise / Sunset
日出與日落

本式可約算某一天某一地點之日出或日落的時間.

<COMP>
? → Y : ? → M : ? → D : ? → B : ? → C : ? → X :
Fix0 : Deg :
1009 M ÷ 33 – 1794 ÷ 55 : Rnd :
Ans + D + ( 2 ≥ M → A :
Y ÷ 4 – .5 : Rnd : A + ( Y = 4 Ans → A :
Y ÷ 10 2 – .5 : Rnd : A – ( Y = Ans 10 2 → A :
Y ÷ 400 – .5 : Rnd :
A + .5 – X ÷ 4 – C ÷ 360 + ( Y = 400 Ans → A :
C → Y : .9856 A – 3.289 :
Ans + 1.916 sin Ans + .02 sin 2 Ans – 77.366 → C :
tan-1 ( 1.09 -1 tan C → D : 0 > D => π r + D → D :
sin-1 ( .3978 sin C :
X cos-1 ( ( 69 -1 + sin Ans sin B ) ÷ - cos Ans cos B :
- 9 A ÷ 3287 – 8 – 29 + 360 -1 ( D – Ans → D :
D – .5 : Rnd : Norm1 : D – Ans → D :
D X > .5 X => D – .5 X → D :
? → A : ( 24 D – Y ÷ 15 + A ) ° → D
304 Bytes

操作方法

一般操作 例子
ymd 日在已知經緯度及時區的地方上的日出 / 日落時間. 求 2004 年 9 月 29 日在香港大帽山的日落時間.
啟動程式 Prog 1
輸入資料
y EXE m EXE d EXE
Latitude EXE Longitude EXE
x EXE (x = 1 代表日出, x = -1 代表日落)
Timezone EXE
2004 EXE 9 EXE 29 EXE
22°24°39.45° EXE 114°7°32.17° EXE
(大帽山在東經 114° 7’ 32.17”、北緯 22° 24’ 39.45”)

-1 EXE (輸入完後請稍等)
8 EXE
顯示時間
t
(關於 t 的偏差請看「其他資料」)
18°12°40.42
(即日落時間為 7:12:40 pm.)

記憶體

A Timezone
B Latititude
C Sun
D t
X x
Y Longitude
M m

其他資料

如地方在西半球 (經度為 xxx W), 請在 Longitude 輸入一負數.
如地方在南半球 (緯度為 xxx S), 請在 Latitude 輸入一負數.

此式只對極圈 (Polar circles) 外的地區 (即北緯 66° 33’ 29.22” 以南和南緯 66° 33’ 29.22” 以北) 有效

由於太陽和地球的運動不是純粹橢圓運動 以及約算數值的問題, 得出的答案可能有幾秒以至幾分鐘的偏差.