← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to stdred/long/proc/lnplresid.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/long/proc/lnplresid.prg
 
1
! @(#)lnplresid.prg     19.1 (ES0-DMD) 02/25/03 14:24:48
 
2
! @(#)lnplresid.prg     19.1  (ESO)  02/25/03  14:24:48
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
5
!.IDENT       lnplresid.prg
 
6
!.AUTHORS     Pascal Ballester (ESO/Garching) 
 
7
!             Cristian Levin   (ESO/La Silla)
 
8
!.KEYWORDS    Spectroscopy, Long-Slit
 
9
!.PURPOSE     
 
10
!.VERSION     1.0  Package Creation  17-MAR-1993  
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM P1 {YSTART}  ?  "Position:"
 
14
DEFINE/PARAM P2 {LINTAB} TAB "Line table : "
 
15
!
 
16
DEFINE/LOCAL CMND/C/1/20  {MID$CMND(11:19)}
 
17
DEFINE/LOCAL WPAR/R/1/3   0.,0.,0.  ?  +lower
 
18
!
 
19
VERIFY/LONG  {P2} TABLE
 
20
!
 
21
GRAPH/SPEC 
 
22
!
 
23
LOG(4) = 2
 
24
!
 
25
IF P1(1:1) .NE. "A" THEN
 
26
@s lnident,seline {P2} {P1}
 
27
SELECT/TABLE {P2}  SELECT.AND.:REJECT.GT.0.AND.:WAVE.NE.NULL
 
28
ELSE
 
29
SELECT/TABLE {P2} ALL
 
30
ENDIF
 
31
 
 
32
IF OUTPUTI(1) .GT. 0 THEN
 
33
 
 
34
STAT/TABLE {P2}  :WAVE
 
35
COPY/KEYW OUTPUTR/R/1/2 WPAR/R/1/2
 
36
RESET/GRAPH
 
37
RESET/GRAPH PMODE=1 FONT=1
 
38
 
 
39
 IF CMND(1:1) .EQ.  "D"  THEN
 
40
        COPY/TABLE   {P2}  &l
 
41
        PLOT/TABLE         &l  :WAVE  :DELTA
 
42
        WPAR(3) = (WPAR(2)-WPAR(1))/512.
 
43
        CREATE/IMAGE         &r   1,512  {WPAR(1)},{WPAR(3)}
 
44
        CONVERT/TABLE      &m  = &l  :WAVE  :DELTA  &r  POLY  {DCX(1)}
 
45
        RESET/GRAPH COLOR=4
 
46
        OVERPLOT/ROW           &m
 
47
        OVERPLOT/LINE      4   {WPAR(1)},0. {WPAR(2)},0.
 
48
 ELSE
 
49
        PLOT/TABLE       {P2}  :WAVE  :RESIDUAL
 
50
        RESET/GRAPH        COLOR=4
 
51
        OVERPLOT/LINE    4   {WPAR(1)},0. {WPAR(2)},0.
 
52
        STAT/TABLE       {P2}  :RESIDUAL
 
53
        LABEL/GRAPH      "RMS = {OUTPUTR(4)}"  30,10,mm  
 
54
 ENDIF
 
55
 
 
56
ELSE
 
57
 
 
58
WRITE/OUT "Error: Selected table is empty. No lines plotted"
 
59
 
 
60
ENDIF
 
61
 
 
62
SELECT/TABLE {P2}  ALL
 
63
RESET/GRAPH
 
64
 
 
65
!
 
66
LOG(4) = 0
 
67
!
 
68
RETURN
 
69
 
 
70
 
 
71
ENTRY PLOT
 
72
 
 
73
DEFINE/PARAM P1 {LINTAB}    TAB
 
74
DEFINE/PARAM P2 :RESIDUAL   CHAR
 
75
DEFINE/PARAM P3 PLOT        CHAR  "Mode (PLOT/OVER)"
 
76
 
 
77
{P3}/TABLE {P1}  :WAVE  {P2}
 
78
OVERPLOT/LINE    4   {WPAR(1)},0. {WPAR(2)},0.
 
79
STAT/TABLE {P1}  {P2}
 
80
LABEL/GRAPH      "RMS = {OUTPUTR(4)}"  30,10,mm  
 
81
 
 
82
!
 
83
LOG(4) = 0
 
84
!
 
85
RETURN