← Back to branch summary

~ubuntu-branches/debian/experimental/stellarium/experimental

« back to all changes in this revision

Viewing changes to util/HipJ1991ToJ2000.pl

  • Committer: Package Import Robot
  • Author(s): Tomasz Buchert
  • Date: 2013-04-23 18:31:29 UTC
  • mfrom: (1.2.11)
  • Revision ID: package-import@ubuntu.com-20130423183129-u1bus3c87vywlmku
Tags: 0.12.1-1
* Imported Upstream version 0.12.1
* Installing icons provided by upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/HipJ1991ToJ2000.pl
 
1
#!/usr/bin/perl -w
 
2
 
 
3
#
 
4
# This tool read original Hipparcos catalog (J1991.25) + Hipparcos from VizieR (J2000.0)
 
5
# and update coordinates in original catalog.
 
6
#
 
7
# All catalogs can be found here: http://astro.uni-altai.ru/~aw/stellarium/hipparcos/
 
8
#
 
9
 
 
10
# Original Hipparcos catalog (1997; J1991.25)
 
11
$HIPmain        = "./hip_main.dat";
 
12
$HIPcom         = "./h_dm_com.dat";
 
13
 
 
14
# Hipparcos from VizieR (2013; J2000.0)
 
15
$HIPmainV       = "./hip_main_j2000.dat";
 
16
$HIPmainVa      = "./hip_main_j2000a.dat";
 
17
$HIPcomV        = "./h_dm_com_j2000.dat";
 
18
 
 
19
# Result
 
20
$HIPmainR       = "./hip_main_r.dat";
 
21
$HIPcomR        = "./h_dm_com_r.dat";
 
22
 
 
23
# Hipparcos main catalog
 
24
open(oHIP, "<$HIPmain");
 
25
@catalog = <oHIP>;
 
26
close oHIP;
 
27
 
 
28
open(cHIP, "<$HIPmainV");
 
29
@catalogV = <cHIP>;
 
30
close cHIP;
 
31
 
 
32
open(vHIP, "<$HIPmainVa");
 
33
@catalogA = <vHIP>;
 
34
close vHIP;
 
35
 
 
36
open(rHIP, ">$HIPmainR");
 
37
for($i=0;$i<scalar(@catalog);$i++) 
 
38
{
 
39
        @cat = split('\|',$catalog[$i]);
 
40
        @fix = split('\|',$catalogV[$i]);
 
41
        @fixa = split('\|',$catalogA[$i]);
 
42
        if ($cat[8] ne '            ' && $cat[9] ne '            ')
 
43
        {
 
44
                if ($fixa[0] ne '            ' && $fixa[1] ne '            ')
 
45
                {
 
46
                        $cat[3] = substr($fixa[0],0,11); # RA
 
47
                        $cat[4] = substr($fixa[1],0,11); # DE
 
48
                }
 
49
                $cat[8] = $fix[0]."00";
 
50
                $cat[9] = $fix[1]."00";
 
51
        }
 
52
        print rHIP join('|', @cat);
 
53
}
 
54
close rHIP;
 
55
 
 
56
# Hipparcos binary stars catalog
 
57
open(oHIP, "<$HIPcom");
 
58
@catalog = <oHIP>;
 
59
close oHIP;
 
60
 
 
61
open(cHIP, "<$HIPcomV");
 
62
@catalogV = <cHIP>;
 
63
close cHIP;
 
64
 
 
65
open(rHIP, ">$HIPcomR");
 
66
for($i=0;$i<scalar(@catalog);$i++) 
 
67
{
 
68
        @cat = split('\|',$catalog[$i]);
 
69
        @fix = split('\|',$catalogV[$i]);
 
70
        $cat[20] = $fix[0]."00"; # RA
 
71
        $cat[21] = $fix[1]."00"; # DE
 
72
        print rHIP join('|', @cat);
 
73
}
 
74
close rHIP;