プログラムのソースを公開しているHP

質問

現在のユリウス通日や惑星の位置などの、
プログラムのソースを公開しているHP教えてください。
出来れば Javascriptがいいです。

回答No.1

eria77 · ベストアンサー

ほとんどの方が、人の開発したプログラムを少なくとも参考にしています。

この件が、著作権の問題に触れる事になるので掲載したくても出来ないのでは？

基準ユリウス（X＝２３００（仮）（２０００年とする）
年入力（ｙ）＋月入力（ｍ）＋日入力（D）

２０００－ｙ*３６５＝YY（基準日より経過日数）
Z＝ｙｙ＋ｍ＋D＋X（トータル経過日数＋基準ユリウス日）
こんな感じでinput y print Z
程度のコマンドで表示は可能だったと思う。

惑星は公転周期から一ヶ月で何度移動するかで計算。
画面中央を座標０，０にする。
ｃ＝X＋５５０　ｇ＝ｙ＋２５０（ｃはｘ、ｙはｇ）
とかで座標ラインを作成。
これを基準にサークル作成。
ラジアンで移動させる。
上の基準点方法の応用でで年入力も可能

これは全部自作だからへーき。＾＾

回答No.4

eria77

日本語プログラム「ひまわり」で今作成した。
閏年補正はしてない。＾＾；

A=２４５１５４４
「西暦」を、尋ねる。
B=それ-２０００
「月」を、尋ねる。
もし、それ＝１ならば、C=０
もし、それ＝２ならば、C=３１
もし、それ＝３ならば、C=５９
もし、それ＝４ならば、C=９０
もし、それ＝５ならば、C=１２０
もし、それ＝６ならば、C=１５１
もし、それ＝７ならば、C=１８１
もし、それ＝８ならば、C=２１２
もし、それ＝9ならば、C=２４３
もし、それ＝１０ならば、C=２７３
もし、それ＝１１ならば、C=３０４
もし、それ＝１２ならば、C=３３４
「日」を、尋ねる。
D=B*365
E＝A+D+C+それ
ユリウス日＝E
「ユリウス日は」と、表示。
ユリウス日を、表示。

これを、コピー、貼り付けでひまわりで作動する。
ベクターで、ひまわりを入手しよう。

またねん。＾＾

回答No.3

aquafina

C,C++,Fortran などのコードだったら、下記URLの天文学研究者向けソースコードアーカイブを探せばあるかもしれません。一応参考までに。

参考URL：

http://ascl.net/

回答No.2

eria77

後はプログラムちょこちょこっと勉強すれば作成可能！＾＾

惑星の位置はサイン、コサイン計算でXYポイントを作成。
１月の移動角度をラジアンに換算。
後は忘れた。＾＾；

下記URLで勉強して。＾＾

参考URL：

http://www1.odn.ne.jp/kentaurus/astropos.htm