Alignment file *.sta

Image processing, astrometry, photometry, etc.
Post Reply
AdrianoV
Posts: 10
Joined: 13 Mar 2019, 23:19

Alignment file *.sta

Post by AdrianoV » 17 Sep 2019, 22:16

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

AlessandroMaitan
Posts: 5
Joined: 09 May 2019, 08:02

Re: Alignment file *.sta

Post by AlessandroMaitan » 20 Sep 2019, 11:17

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

AdrianoV
Posts: 10
Joined: 13 Mar 2019, 23:19

Re: Alignment file *.sta

Post by AdrianoV » 17 Nov 2019, 10:45

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

Post Reply