← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/feros/locproc/fitimaqual.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/locproc/fitimaqual.prg
 
1
! @(#)fitimaqual.prg    19.1 (ESO-IPG) 02/25/03 14:21:45
 
2
!
 
3
! MIDAS procedure fitimaqual.prg 
 
4
! A. Kaufer     980724
 
5
!
 
6
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
7
!  
 
8
define/par p1 ?         C  "Enter intable: "
 
9
define/par p2 ?         C  "Enter dependent column: "
 
10
define/par p3 :x        C  "Enter x column: "
 
11
define/par p4 :yabs     C  "Enter y column: "
 
12
define/par p5 ref2D     C  "Enter reference image: "
 
13
!
 
14
WRITE/KEYW in_a {p1}.tbl
 
15
WRITE/KEYW in_b centers.tbl 
 
16
run STD_EXE:ypos.exe
 
17
 
 
18
fit/tab 100,0.001 {p1} {p2} {p3},{p4} plane
 
19
!
 
20
crea/ima  {p5} 2,2048,1024 1,1,2,2 NODATA
 
21
!
 
22
write/out "create fit image {p1}fit"
 
23
compute/fit {p1}fit = plane({p5})
 
24
load/ima {p1}fit sc=-4
 
25
!load/ima {p1}fit sc=-2,10
 
26
end:
 
27
 
 
28
 
 
29