AstroPołudnie

Wrzucam tutaj algorytm, który napisałem do obliczenia jasności różnych gromad gwiazd. Jest bardzo prosty, wystarczy wklepać kilka najjaśniejszych gwiazd, a program sam oblicz jasność gromady.
Algorytm pochodzi ze strony SKy & Telescope, na Small Basica sam go przerobiłem.
Oprogramowanie jest darmowe w wersji edukacyjnej.
Skopiuj kod i wklej go do SB

b=Math.Power(100, 0.2)
n=2
TextWindow.WriteLine("Program sumuje jasności gwiazd")
c=Math.NaturalLog(10)
TextWindow.Write("Jasność pierwszej gwiazdy: ")
m1 = TextWindow.ReadNumber()
TextWindow.Write("Jasność drugiej gwiazdy: ")
m2= TextWindow.ReadNumber()
licz:
m= Math.Power(b, -m1)+Math.Power(b, -m2)
m = -2.5* Math.NaturalLog(m)/c
TextWindow.Write("Jasność absolutna: ")
TextWindow.WriteLine(m)
m1=m
n=n+1
TextWindow.Write("Inna gwiazda: k-koniec ")
m2= TextWindow.Read()
If (m2="k") Then
goto koniec
Else

Goto licz
EndIf
koniec:
TextWindow.Write("liczba gwiazd: ")
TextWindow.WriteLine(n-1)

Nie za bardzo kumam sens tego programu. Możesz coś więcej napisać? Jakieś praktyczne zastosowanie, albo konkretny przykład?

Do obliczenia jasności gromad gwiazd w których nie ma podanych jasności (jest wiele takich) albo do obliczenia sumarycznej jasności układów wielokrotnych.

Korzystam w praktyce z tego algorytmu.

Przykład praktyczny.

Mamy gromadę Berkeley 47. Jak wchodzimy w informacje i chcemy zobaczyć jaka jest jej jasność, a tam pisze "unknow"
czyli nie wiadomo....

Uruchamiamy kod.

Odczytujemy po kolei jasności sześciu gwiazd, które pokazuje program, i kolejno wpisujemy je do programu. Używamy jako separatora kropki
12 14.9 13.5 13.5 14.8 12.7

Na dole oblicza jasność gromady 11.15 mag Bardzo dużo jest takich obiektów.
W praktyce ogromna większość obiektów DS z poza katalogu NGC i iC może nie mieś szczegółowych danych.
Możemy je samo obliczyć.

lista zastosowań jest większa: gwiazdy podwójne, układy wielokrotne, astreyzmy , dziwne katalogi itp.