← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/plttbl3.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:
prim/proc/plttbl3.prg
 
1
! @(#)plttbl3.prg       19.1 (ES0-DMD) 02/25/03 14:08:58
 
2
! @(#)plttbl3.prg       1.1 (ESO-IPG) 10/29/93 15:18:10
 
3
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.IDENTIFICATION: PLTDEMO.PRG
 
5
!.PURPOSE:        Demonstration procedure for the graphics package, 3-D. 
 
6
!.AUTHOR:         Richar van Hees  ESO - Garching Oct. 29 , 1993
 
7
!.USE:            Execute as TUTORIAL/GRAPHICS
 
8
!.NOTE:           The following files should exist: array.tbl in MID_TEST
 
9
!.VERSION:        931029 Creation RvH
 
10
! -----------------------------------------------------------------------
 
11
!                        Here for the table stuff
 
12
!
 
13
write/out "A 3-D table is copied to your directory (with artificial data)"
 
14
indisk/fits MID_TEST:array.tfits exampl.tbl >Null
 
15
select/table exampl all
 
16
show/table exampl
 
17
wait/secs 3
 
18
!
 
19
write/out "Two planes in the table will be plotted in the default plot setup."
 
20
set/grap default                                      ! default graphics setup
 
21
! create/graph 0 600,450,0,325                          ! for the SONY
 
22
create/graph 0 600,450,0,450                            ! for the SUN
 
23
write/out "   PLOT/TABLE EXAMPL #3 #2 " 
 
24
plot/table exampl #3 #2
 
25
wait/secs 5
 
26
!
 
27
write/out " " 
 
28
write/out "MIDAS can do better; let's make use of PLOT/TABLE facilities"
 
29
write/out "   PLOT/TABLE EXAMPL #3 #2 ? 3,5,7 1,2"
 
30
plot/table exampl #3 #2 ? 3,5,7 1,2
 
31
wait/secs 5
 
32
!
 
33
write/out " " 
 
34
write/out "We have connected the data points found in each column,"
 
35
write/out "but we can also connect data points found in the depth of the table"
 
36
write/out "   PLOT/TABLE EXAMPL #3 #2 ? 3,5,7 1,2 O,O "
 
37
plot/table exampl #3 #2 ? 3,5,7 1,2 O,O
 
38
wait/secs 5
 
39
!
 
40
write/out " " 
 
41
write/out "We do not have to take all the array elements..."
 
42
write/out "   PLOT/TABLE EXAMPL #3 #2[2..4] ? 3,5,7 1,2 O,O "
 
43
plot/table exampl #3 #2[2..4] ? 3,5,7 1,2 O,O
 
44
wait/secs 5
 
45
!
 
46
write/out " " 
 
47
write/out "Or we can take a vector along a column as abscissa."
 
48
write/out "Note the direction flags!"
 
49
write/out "   PLOT/TABLE EXAMPL #3[3] #2 ? 3,5,7 1,2"
 
50
plot/table exampl #3[3] #2 ? 3,5,7 1,2
 
51
wait/secs 5
 
52
!
 
53
write/out " " 
 
54
write/out "Or take a vector along a row as abscissa"
 
55
write/out "   PLOT/TABLE EXAMPL @8[3] #2 ? 3,5,7 1,2 O,O"
 
56
write/out "Oops, there are NULL values in first column; get dimensions right"
 
57
write/out "   PLOT/TABLE EXAMPL @8#2..5[3] #2[1..4] ? 3,5,7 1,2 O,O"
 
58
write/out "Note that the units are not the same along a row"
 
59
plot/table exampl @8#2..5[3] #2[1..4] ? 3,5,7 1,2 o,o
 
60
write/out "Try to understand what is going on"
 
61
wait/secs 7
 
62
!
 
63
set/grap
 
64
IF AUX_MODE(1) .EQ. 1 THEN
 
65
   -delete exampl.tbl.
 
66
ELSE
 
67
   -delete exampl.tbl
 
68
ENDIF
 
69
wait/secs 10
 
70
delete/grap