HI,
i have generated two file *.sta, one for image with the photometric filter V e one for B.
The selection stars isn't the same exactly.
What procedure can I use to "align" the two files, so as to have two lists with the same stars and then calculate the B-V?
Thanks
Adriano
Alignment file *.sta
-
- Posts: 20
- Joined: 09 May 2019, 08:02
Re: Alignment file *.sta
Hi Adriano,
according to my experience if you need only to select a limited number of stars and always the same, it is better to select the stars you need manually.
To do so:
- open the image you need
- click once on the stars icon
- click twice on the stars you need
- save the file *.sta you have created
- repeat the process for the other filter
This is the method I used in the past to select always the same stars in different images
I hope this can help.
Alessandro
according to my experience if you need only to select a limited number of stars and always the same, it is better to select the stars you need manually.
To do so:
- open the image you need
- click once on the stars icon
- click twice on the stars you need
- save the file *.sta you have created
- repeat the process for the other filter
This is the method I used in the past to select always the same stars in different images
I hope this can help.
Alessandro
Re: Alignment file *.sta
Ciao,
confrontandomi con un altro astrofilo è venuta fuori questa macro in VB da utilizzare con i file excel.
Adriano
Sub trova()
' Routine per ricerca stella su delta coordinate minimi
For rv% = 2 To 524
dist_min# = 9999999
ident_star% = 0
B_mag# = 0
AR_ident# = 0
DEC_ident# = 0
For rb% = 2 To 507
d_AR# = (Sheets("V_list").Cells(rv%, 5) - Sheets("B_list").Cells(rb%, 5)) * 15 * 3600
d_DEC# = (Sheets("V_list").Cells(rv%, 6) - Sheets("B_list").Cells(rb%, 6)) * 3600
dist# = Sqr(d_AR# ^ 2 + d_DEC# ^ 2)
If dist# < dist_min# Then
dist_min# = dist#
ident_star% = Sheets("B_list").Cells(rb%, 3)
B_mag# = Sheets("B_list").Cells(rb%, 7)
AR_ident# = Sheets("B_list").Cells(rb%, 5)
DEC_ident# = Sheets("B_list").Cells(rb%, 6)
End If
Next rb%
Sheets("V_list").Cells(rv%, 8) = ident_star%
Sheets("V_list").Cells(rv%, 9) = B_mag#
Sheets("V_list").Cells(rv%, 10) = AR_ident#
Sheets("V_list").Cells(rv%, 12) = DEC_ident#
Next rv%
End Sub
confrontandomi con un altro astrofilo è venuta fuori questa macro in VB da utilizzare con i file excel.
Adriano
Sub trova()
' Routine per ricerca stella su delta coordinate minimi
For rv% = 2 To 524
dist_min# = 9999999
ident_star% = 0
B_mag# = 0
AR_ident# = 0
DEC_ident# = 0
For rb% = 2 To 507
d_AR# = (Sheets("V_list").Cells(rv%, 5) - Sheets("B_list").Cells(rb%, 5)) * 15 * 3600
d_DEC# = (Sheets("V_list").Cells(rv%, 6) - Sheets("B_list").Cells(rb%, 6)) * 3600
dist# = Sqr(d_AR# ^ 2 + d_DEC# ^ 2)
If dist# < dist_min# Then
dist_min# = dist#
ident_star% = Sheets("B_list").Cells(rb%, 3)
B_mag# = Sheets("B_list").Cells(rb%, 7)
AR_ident# = Sheets("B_list").Cells(rb%, 5)
DEC_ident# = Sheets("B_list").Cells(rb%, 6)
End If
Next rb%
Sheets("V_list").Cells(rv%, 8) = ident_star%
Sheets("V_list").Cells(rv%, 9) = B_mag#
Sheets("V_list").Cells(rv%, 10) = AR_ident#
Sheets("V_list").Cells(rv%, 12) = DEC_ident#
Next rv%
End Sub