← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to stdred/feros/proc/ferosxcorr.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
stdred/feros/proc/ferosxcorr.prg
 
1
! @(#)ferosxcorr.prg    19.1 (ESO-IPG) 02/25/03 14:22:03
 
2
! @(#)ferosxcorr.prg    1.1 (ESO-IPG) 02/25/99 16:55:20
 
3
!
 
4
! This is part of the FEROS data reduction software
 
5
! convert IDTAB by cross-correlating with reference frame and 
 
6
! converting :x-axis of reference IDTAB
 
7
! 
 
8
! Otmar Stahl, Nov. 9, 1998
 
9
!
 
10
!
 
11
define/param P1 ? I "line by line spectrum: "
 
12
define/param P2 20 N "order to plot: "
 
13
 
 
14
define/local i/i/1/1 0
 
15
 
 
16
!goto next
 
17
 
 
18
cop/tab IDTAB_REF IDTAB
 
19
 
 
20
crea/tab xcorr 2 39
 
21
crea/col xcorr :row
 
22
crea/col xcorr :xcorr
 
23
 
 
24
! loop over orders
 
25
 
 
26
do i = 1 39 
 
27
 
 
28
  EXTRAC/IMAG xx1 = THAR_REF[<,@{i}:>,@{i}]
 
29
  EXTRAC/IMAG xx2 = {p1}[<,@{i}:>,@{i}]
 
30
 
 
31
  XCORRE/IMAG xx2 xx1 xcorr 30
 
32
!plo xcorr
 
33
 
 
34
  cente/gauss xcorr
 
35
 
 
36
  xcorr,:row,@{i} = {i}
 
37
  xcorr,:xcorr,@{i} = {outputr(5)}
 
38
 
 
39
  enddo
 
40
 
 
41
!next:
 
42
 
 
43
REGRES/POLY xcorr :xcorr :row 1
 
44
COMPUT/TABL IDTAB :x = :x+({outputd(1)}+{outputd(2)}*:y)
 
45
 
 
46
plo {p1} @{p2}
 
47
sele/tab  IDTAB :y.eq.{p2}
 
48
 
 
49
!OVERPL/IDEN IDTAB :x :ident
 
50
set/gra colo=2
 
51
OVERPL/IDEN  IDTAB :x :ident
 
52
set/gra colo=1
 
53
!