Algorytm do wyliczeń jaśnosci gromad gwiazd

[midimariusz]

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)

obraz_2022-08-05_122615469.png (121.48 KiB) Przejrzano 4762 razy

[Patrix]

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

[midimariusz]

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.

[midimariusz]

Przykład praktyczny.

Mamy gromadę Berkeley 47.

berk47.png (21.12 KiB) Przejrzano 4427 razy

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

jasnosc.png (18.36 KiB) Przejrzano 4427 razy

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.