VL-BASICでLemmon(C/2025 A6)

2025/10/5(日)

VL-BASICでLemmon(C/2025 A6)

 

https://ulprojectmail.blogspot.com/2024/10/vl-basic-3.html

VL-BASICで惑星の軌道 (3回目)

 

のDATA文を変更し表示しています

 

火星までの表示の場合のDATA文の書き換えと

冥王星まで表示する場合はそのDATA文の書き換えが必要です

(別々のデータを書くことで2種類の軌道を表示可能です)

 

lemmon025v.bas for VL-BASIC

 

lemmon025.basの書き換え場所

3100 DATA 2025, 3, 1.0       '--- 元期d=0(表示開始日)

3130 DATA 2025,11, 8.0       '--- 元期d=3(C/2025 A6)

3140 DATA 366 , 1            '--- 表示期間(日),経過時間(日)

3240 '---   c,d, q     , e     , i     , Ω+ω , Ω   , Mo  ,  P

3250 DATA  4 ,3, 0.5298, 0.9958, 143.66, 241.05,108.10,  0  , -1 'C/2025 A6

他(別途冥王星までも同じように書き換えています)

 

ネットで拾ったデータを使用しています

正しいかどうか分かりませんので自己責任でご使用ください

 

VL-BASICとnl～.zip(lemmon025v.bas)は

以下のリンクからダウンロードできます

https://ulprojectmail.blogspot.com

Readme.txtを読んで遊んで下さい

 

 

 

N88-BASICでLemmon(C/2025 A6)

2025/10/1(水)

N88-BASICでLemmon(C/2025 A6)

 

https://ulprojectmail.blogspot.com/2021/10/n88-basic-2.html

N88-BASICで天体の軌道 (2回目)

 

のDATA文を変更し表示しています

 

火星までの表示の場合のDATA文の書き換えと

冥王星まで表示する場合はそのDATA文の書き換えが必要です

(別々のデータを書くことで2種類の軌道を表示可能です)

 

lemmon025.bas for NL-BASIC, N88-BASIC(PC-98DOS版)

 

lemmon025.basの書き換え場所(火星まで)

 

4320 DATA 2025, 9,15.0       '--- 元期d=0(表示開始日)

 

4350 DATA 2025,11, 8.0       '--- 元期d=3(C/2025 A6)

4360 DATA   55, 1            '--- 表示期間(日),経過時間(日)

4370 DATA    7, 3            '--- 惑星数, 地球番号

 

4460 '---   c,d, q    , e    , i    , Ω+ω , Ω    , Mo    ,  P

4470 DATA  4 ,3, 0.5298, 0.9958, 143.66, 241.05,108.10,  0  , -1 'C/2025 A6

 

他(別途冥王星までも同じように書き換えています)

 

ネットで拾ったデータを使用しています

正しいかどうか分かりませんので自己責任でご使用ください

 

NL-BASICとnl～.zip(lemmon025.bas)は

以下のリンクからダウンロードできます

https://ulprojectmail.blogspot.com

Readme.txtを読んで遊んで下さい

 

 

N88-BASICで秋分の日(2025)

2025/9/22(月)

N88-BASICで秋分の日(2025)

 

https://ulprojectmail.blogspot.com/2021/10/n88-basic-2.html

N88-BASICで天体の軌道 (2回目)

 

のDATA文を変更し表示しています

 

2025-9-1～2025-9-23(火)の秋分の日までの表示

 

火星までの表示の場合のDATA文の書き換えと

冥王星まで表示する場合はそのDATA文の書き換えが必要です

(別々のデータを書くことで2種類の軌道を表示可能です)

 

lemmon025.basの書き換え場所

4320 DATA 2025, 9, 1.0       '--- 元期d=0(表示開始日)

4360 DATA   23, 1            '--- 表示期間(日),経過時間(日)

 

4550 DATA 2025, 9, 1.0       '--- 元期d=0(表示開始日)

4590 DATA   23, 1            '--- 表示期間(日),経過時間(日)

その他小惑星データなど

 

 

NL-BASICとnl～.zip(shuu025.bas)は

以下のリンクからダウンロードできます

https://ulprojectmail.blogspot.com

Readme.txtを読んで遊んで下さい