v21i043: 2D graphic system with table beautifier, Part12/14
Rich Salz
rsalz at uunet.uu.net
Sat Mar 24 06:22:22 AEST 1990
Submitted-by: Steve Grubb <uunet!lsr-vax!scg>
Posting-number: Volume 21, Issue 43
Archive-name: ipl/part12
# ipl part12
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#---------------------- cut here -----------------------------
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# examples/data.cities
# examples/data0
# examples/data1
# examples/data12a
# examples/data12b
# examples/data16
# examples/data2
# examples/data3
# examples/data4
# examples/data4A
# examples/data99
# examples/demo.pipl
# examples/demo.sipl
# examples/distrib1.g
# examples/distrib2.g
# examples/dwb.data
cat << \SHAR_EOF > examples/data.cities
33.938 15.391 New York
33.021 14.766 Phila.
32.639 13.984 Balto.
32.639 12.969 Wash.
30.500 14.844 Pitts.
33.403 11.875 Norfolk
28.514 8.359 Atlanta
32.792 1.875 Miami
30.347 3.359 Tampa
23.931 4.453 New Orleans
28.361 16.094 Detroit
25.153 15.391 Chicago
23.243 12.344 St. Louis
13.160 13.047 Denver
2.236 9.531 Louisiana
0.556 13.281 San Francisco
19.958 3.984 Houston
19.118 6.875 Dallas
35.771 17.812 Boston
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data0
1/87 0
2/87 0
3/87 23
4/87 91
5/87 274
6/87 534
7/87 647
8/87 1278
9/87 727
10/87 1463
11/87 463
12/87 928
1/88 1412
2/88 911
3/88 1448
4/88 1476
5/88 1824
6/88 1885
7/88 1619
8/88 1694
9/88 1467
10/88 1628
11/88 1830
12/88 1375
1/89 1282
2/89 1026
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data1
1 5.7
2 5.6
3 5.3
4 5.2
5 5.5
6 5.9
7 5.8
8 5.1
9 5.4
10 5.1
11 5.8
12 5.3
13 5.9
14 5.3
15 5.3
16 5.0
17 5.8
18 5.5
19 5.0
20 5.6
21 5.5
22 5.3
23 5.1
24 5.7
25 5.4
26 5.8
27 5.9
28 5.5
29 5.7
30 5.7
31 5.5
32 5.6
33 5.1
34 5.7
35 5.9
36 5.9
37 5.1
38 5.1
39 5.8
40 5.7
41 5.2
42 5.8
43 5.3
44 5.8
45 5.5
46 5.6
47 5.0
48 5.4
49 5.6
50 5.4
51 5.4
52 5.3
53 5.7
54 5.6
55 6.0
56 5.3
57 5.1
58 5.5
59 5.3
60 5.3
61 5.5
62 5.7
63 5.6
64 5.1
65 5.9
66 5.4
67 5.9
68 5.6
69 5.3
70 5.0
71 5.6
72 5.5
73 5.1
74 5.8
75 5.5
76 5.7
77 5.4
78 5.1
79 5.8
80 5.0
81 5.4
82 5.6
83 5.0
84 5.6
85 5.4
86 5.1
87 5.1
88 5.1
89 5.7
90 5.8
91 5.5
92 5.7
93 5.5
94 5.2
95 5.3
96 5.5
97 5.9
98 5.3
99 5.3
100 5.9
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data12a
-17 0 0 0 0 0 0 0 0 0 0 0 0
-16 0 1 0 2 1 1 1 1 4 0 0 1
-15 0 0 2 0 1 0 1 1 0 3 2 1
-14 3 2 1 1 2 2 1 1 2 2 3 2
-13 5 1 6 2 2 1 1 3 6 2 2 3
-12 2 3 5 4 3 2 1 3 4 3 3 3
-11 9 3 7 4 8 3 6 5 6 5 2 5
-10 6 8 7 5 7 3 7 3 4 2 5 3
-9 5 6 6 9 3 9 1 9 0 8 10 7
-8 11 8 7 6 10 8 14 4 7 10 8 9
-7 10 6 8 9 5 8 10 10 11 5 8 6
-6 5 8 7 10 7 13 4 9 6 8 5 9
-5 7 10 6 8 8 6 7 5 9 10 10 9
-4 7 5 9 7 4 7 4 9 9 10 10 8
-3 5 6 5 5 8 7 7 3 6 3 2 7
-2 5 3 4 5 5 1 1 3 6 3 4 2
-1 7 6 7 2 11 4 10 8 7 6 8 7
+0 3 8 6 10 4 8 7 8 4 8 6 8
+1 3 6 3 4 3 6 0 5 0 3 5 3
+2 3 3 2 2 2 2 7 6 4 5 3 3
+3 1 1 1 3 0 6 1 3 0 2 3 4
+4 1 1 1 2 0 1 0 3 0 3 2 2
+5 0 1 1 2 1 0 1 0 4 0 0 1
+6 0 1 2 0 1 0 1 0 2 0 0 0
+7 1 0 0 0 0 0 0 0 0 0 0 0
+8 1 0 0 0 0 0 0 0 0 0 0 0
+9 0 0 0 0 0 0 0 0 2 0 0 0
+10 0 0 0 0 0 0 0 0 0 0 0 0
+11 0 0 0 0 0 0 0 0 0 0 0 0
+12 0 0 0 0 0 0 0 0 0 0 0 0
+13 0 0 0 0 0 0 0 0 0 0 0 0
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data12b
78 -9.4 -3.8 -2.0 -0.8 1.4
77 -8.6 -5.6 -2.8 -0.4 1.4
78 -14.2 -10.6 -6.5 -1.4 1.8
74 -13.0 -8.2 -4.1 -1.8 1.6
68 -14.2 -11.5 -7.5 -3.0 1.2
67 -13.4 -9.6 -6.0 -2.6 1.4
56 -14.2 -11.4 -9.4 -2.0 0.8
62 -14.2 -8.8 -5.8 -2.8 1.0
52 -14.4 -11.3 -7.9 -3.0 0.0
55 -13.8 -8.8 -5.6 -2.6 1.6
32 -15.2 -10.6 -7.7 -2.1 1.8
38 -14.0 -8.8 -7.2 -4.0 1.0
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data16
0 1.00 1.00
1 1.00 1.00
2 1.00 1.00
3 1.00 1.00
4 1.00 1.00
5 0.99 1.00
6 0.99 1.00
7 0.98 1.00
8 0.97 1.00
9 0.97 1.00
10 0.97 1.00
11 0.96 1.00
12 0.96 1.00
13 0.96 1.00
14 0.95 1.00
15 0.94 1.00
16 0.94 1.00
17 0.93 1.00
18 0.92 1.00
19 0.91 1.00
20 0.89 1.00
21 0.88 1.00
22 0.88 1.00
23 0.88 1.00
24 0.88 1.00
25 0.88 1.00
26 0.88 1.00
27 0.88 1.00
28 0.88 1.00
29 0.88 1.00
30 0.88 1.00
31 0.88 1.00
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data2
00 0 0 0 1 0.00 0.00 8611 0 0 0 0 0
00 1 2 0 0 0.00 0.00 8612 1 0 1 1 3
00 2 2 2 1 1.33 0.67 8701 0 1 0 2 3
00 3 3 3 7 6.67 4.33 8702 1 2 2 2 7
00 4 8 2 5 10.00 5.00 8703 0 2 0 3 5
00 5 4 4 7 10.67 6.33 8704 1 2 4 6 13
00 6 14 11 4 10.67 5.33 8705 1 6 1 3 11
00 7 15 6 9 13.00 10.00 8706 4 3 6 11 24
00 8 14 5 10 14.67 9.33 8707 4 8 7 7 26
00 9 8 8 15 16.67 7.83 8708 4 4 5 6 19
00 10 9 9 13 16.33 8.17 8709 2 2 5 13 22
00 11 11 10 6 18.67 10.33 8710 1 2 5 18 26
00 12 7 9 11 16.67 8.33 8711 2 6 3 5 16
00 13 6 10 12 16.67 8.33 8712 2 5 3 14 24
00 14 8 11 14 16.83 8.42 8801 2 4 1 10 17
00 15 10 5 8 16.83 8.42 8802 0 6 2 13 21
00 16 12 9 16 17.17 8.58 8803 0 5 8 16 29
00 17 8 12 20 17.17 8.58 8804 1 5 7 12 25
00 18 8 11 7 17.17 8.58 8805 3 1 5 16 25
00 19 7 12 8 17.17 8.58 8806 6 11 13 12 42
00 20 4 6 6 17.17 8.58 8807 2 5 6 11 24
00 21 8 12 12 17.17 8.58 8808 3 4 4 14 25
00 22 1 14 12 17.33 8.67 8809 0 4 10 14 28
00 23 2 5 10 17.33 8.67 8810 2 4 5 12 23
00 24 1 7 8 17.33 8.67 8811 2 3 5 11 21
00 25 4 5 5 17.33 8.67 8812 4 7 4 9 24
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data3
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
ga
tn
ga
sc
sc
sc
ga
ga
sc
sc
ga
ga
tn
ga
sc
ga
ga
fl
ga
tn
ga
ga
ga
ga
sc
sc
ga
sc
ga
sc
sc
sc
sc
##
md
pa
pa
wv
md
va
md
md
md
md
md
va
md
md
va
va
md
md
wv
pa
md
md
md
va
md
md
md
pa
pa
de
de
pa
pa
md
md
md
md
md
pa
pa
oh
va
va
md
md
md
md
pa
md
md
pa
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
vt
ma
ma
##
ny
ma
ma
ny
ct
ri
ma
nh
ma
nh
me
ny
il
il
il
il
il
il
il
in
il
il
il
il
il
il
il
il
in
il
il
il
il
il
il
il
il
il
il
il
il
il
il
il
il
il
ar
il
il
il
in
il
il
il
**
il
il
il
il
il
il
il
il
il
il
il
oh
oh
ny
pa
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
oh
wv
oh
oh
oh
oh
pa
oh
oh
oh
oh
oh
oh
oh
oh
ok
tx
tx
tx
tx
tx
tx
tx
tx
tx
tx
tx
tx
tx
tx
la
tx
tx
tx
tx
tx
tx
tx
ar
ok
tx
tx
ok
tx
ok
ok
tx
tx
tx
ok
tx
tx
nc
va
nc
nc
nc
nc
va
va
nc
va
nc
nc
va
##
nc
nc
nc
va
nc
nc
nc
nc
nc
nc
sc
nc
nc
tn
nc
wv
nc
va
tx
tx
tx
tx
tx
tx
##
ok
tx
tx
tx
tx
tx
tx
tx
tx
tx
tx
ia
il
ks
ia
ks
ia
ia
ia
ia
ia
ia
il
ia
ia
ia
il
il
il
ia
ia
ia
il
ia
ia
ia
ia
ia
ia
ca
ca
ca
ca
ca
ca
ca
ca
nv
ca
ca
az
ca
ca
az
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
wi
wi
wi
wi
wi
wi
wi
wi
wi
al
wi
wi
wi
il
wi
ny
ny
ny
ny
ny
ny
ny
nj
nj
ny
ny
ny
ny
ny
ny
ct
ny
ny
ny
ny
fl
fl
fl
fl
fl
fl
fl
##
fl
fl
fl
fl
fl
fl
fl
@@
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
fl
##
wi
wi
wi
wi
wi
wi
wi
il
mi
il
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
wi
il
wi
wi
wi
wi
wi
il
wi
nj
ny
ny
ny
ny
ny
ny
ny
ny
ny
ny
ny
ny
ny
ny
nj
ny
ny
ny
ct
ny
nj
va
ny
fl
ny
ny
ny
nj
ny
nj
wa
mt
or
or
wa
or
or
or
or
or
or
or
or
or
wa
wa
or
or
or
or
or
wa
wa
or
or
mn
or
sd
mn
mn
##
wi
ne
ky
mn
mn
mi
mn
wy
##
mn
oh
mn
ia
mn
sd
mn
ia
mn
mn
mn
mn
il
mn
ia
mn
mn
nd
mn
wi
ne
nd
wy
mn
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
mi
in
mi
mi
mi
mi
mi
mi
mi
mi
mo
mo
il
mo
mo
mo
mo
mo
mo
mo
il
mo
il
il
mo
in
ky
mo
tx
tx
tx
tx
tx
tx
tx
tx
tx
ar
la
tx
on
nb
on
on
on
on
on
mb
mb
on
on
on
on
on
nb
on
on
on
on
on
on
on
on
on
nf
on
on
on
on
on
on
on
on
on
on
nf
nf
on
on
on
on
on
on
on
on
on
on
on
on
on
on
on
on
on
nb
on
on
on
on
on
on
ca
ca
ca
ca
ca
ca
ca
mt
ca
id
ca
ca
ca
ca
ca
ca
ca
ca
ca
ca
ut
ca
ca
tx
tx
tx
pa
pa
pa
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data4
01 0 1 0 6 10 1 11 10 2 41
02 3 5 0 2 6 2 3 11 3 35
03 1 3 0 1 2 0 5 7 1 20
04 2 4 3 11 24 9 20 11 29 113
05 0 3 1 1 4 0 8 3 2 22
06 2 2 0 2 7 1 6 4 4 28
07 1 3 0 1 6 1 24 22 3 61
08 3 0 0 0 2 0 7 3 0 15
09 3 2 0 2 5 0 1 1 2 16
10 4 8 1 6 10 1 12 2 4 48
11 2 4 0 5 4 2 15 10 11 53
12 4 9 0 6 12 2 9 10 8 60
13 2 3 0 3 12 1 5 9 1 36
14 3 4 1 8 12 1 14 8 7 58
15 1 4 0 6 7 2 10 5 4 39
16 1 4 0 16 13 6 6 6 1 53
17 3 1 1 2 8 4 11 3 4 37
18 1 4 1 6 10 3 12 4 6 47
19 6 16 0 10 9 2 12 17 6 78
20 2 5 1 5 22 10 7 5 22 79
21 0 1 0 9 37 16 5 16 17 101
22 0 2 0 1 2 0 4 1 2 12
23 0 8 0 4 7 3 7 6 4 39
24 3 8 4 7 13 3 15 18 6 77
25 2 3 0 2 5 5 13 10 26 66
26 2 8 0 0 2 0 3 4 6 25
27 0 4 0 3 4 1 7 3 0 22
28 5 9 0 11 30 5 32 17 10 119
29 0 1 0 1 0 0 1 1 0 4
30 0 3 0 0 4 0 5 13 8 33
31 0 0 0 0 1 0 2 1 0 4
32 0 1 0 1 0 0 3 1 0 6
33 0 0 0 0 0 0 1 0 0 1
35 0 1 0 0 0 0 1 0 0 2
38 0 0 0 0 0 0 0 1 0 1
39 0 0 0 0 0 0 0 1 0 1
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data4A
01
02
03~A
04
05~A
06
07
08
09
10
11
12
13
14
15
16
17~A
18
19
20
21
22~A
23
24
25
26
27
28
29~A
30~A
31~A
32~A
33
35
38
39
SHAR_EOF
############################
cat << \SHAR_EOF > examples/data99
33798764798754455455434532111111111111111111111111
53378874675443345556544454321111111111111111111111
75335654443322112454566545763111111111111111111111
66632333345554321224544555567421111111111111111111
56656654357776532211135555665642111111111111111111
54676655468865554321113554575454211111111111111111
54466566457766555542112355545654541111111111111111
45555566536766666554211135555555565211111111111111
44455456535656665653331113445567656631111111111111
65444545534656654553343111345546765675201111111111
77534543544554456533333211124445686565431111111111
66644445444665565323343441112455567644653111111111
66665444543687643333333454111354566655665321111111
66555654453698433333333445311254554576456652111111
55555665443685323333334444431134444566445662111111
55656666533553333333334444452113444466544441232111
55666666543344433344444444453112444465564322565321
55565655653334443444444444444112344455543323676554
55665555653334544444444443344111234445543124566666
66666545654444444444444443454111333566532125444555
66555545654464344433444443455113333443321113433555
76555555564475434443344443445112234433211111454346
77655555464454343443334444455211234433211111245534
77754445653554344444444444545211122331111111135553
77755557863543334434434345646311111111111111134664
76655679973553333344443466756411111111111111135453
66677779873554456654344577755421111111111111125543
88899868853556788743344556665441011111111111112542
99999877853668987643444445467554111111111111112533
99999877744567765533444454468645211111111111025534
98899877535555443222345433467755311111111101256335
99888777546543222222344433566764431111111124664336
89998777445442223332233445666665453211112466653335
77777785355223332222233346644566535432235665444344
78768985355332222222333334434455444555555545763343
77788874476322222233322334444454345434555567653335
76899863586333334554322234444344444444444445542336
77888753686322235665422333334445554433455555432334
77888643785222246544322222354444665344345566532357
87677534785222245565222223545444567655434445532367
87767535886332233443222235544565468755324545433456
65567536886332232332222245544566457555322554333466
55666447886322222222222255454566544564321343333444
56774356776432222222223455455566534543322333434422
56863466665665332222134554666555535433323334434422
55653577544455433343246545776445645455433335334323
65433577533323333455456546654456654566553255234333
77533455433333333345555554443455443566643463245433
77534654433333333333444554565433343456534642355334
66436865333333333333334456864333333455345423464344
SHAR_EOF
############################
cat << \SHAR_EOF > examples/demo.pipl
pipl ../tplates/gallery.g
pipl areadef1.g
pipl areadef2.g
pipl bargraph1.g
pipl distrib1.g
pipl distrib2.g
pipl errorbar1.g
pipl legend1.g
pipl lineplot1.g
pipl map1.g
pipl nicetab1.g
pipl pie1.g
pipl rangebar1.g
pipl vbargraph1.g
pipl vector1.g
pipl vrangebar1.g
pipl absunits.g
pipl examp1.g
pipl examp2.g
pipl examp10.g
pipl examp12.g
pipl examp13.g
pipl examp14.g
pipl examp16.g
pipl examp3.g
pipl examp4.g
pipl examp6.g
pipl examp7.g
SHAR_EOF
chmod 755 examples/demo*
############################
cat << \SHAR_EOF > examples/demo.sipl
sipl ../tplates/gallery.g areadef1.g areadef2.g bargraph1.g distrib1.g distrib2.g \
errorbar1.g legend1.g lineplot1.g map1.g nicetab1.g pie1.g rangebar1.g vbargraph1.g \
vector1.g vrangebar1.g absunits.g
sipl examp1.g examp2.g examp10.g examp12.g examp13.g examp14.g examp16.g \
examp3.g examp4.g examp6.g examp7.g
SHAR_EOF
chmod 755 examples/demo*
############################
cat << \SHAR_EOF > examples/distrib1.g
Proc Page:
Title: Two-way Distribution Examples
Proc Getdata:
Data: R01 7 9 77 11
R02 12 10 60 21
R03 3 8 24 31
R04 31 29 91 41
R05 25 25 38 51
R06 23 24 69 41
R07 26 24 22 61
R08 25 27 96 71
R09 10 8 23 81
R10 12 11 78 91
R11 9 31 18 81
R12 12 13 08 71
R13 14 12 31 81
R14 34 30 79 71
R15 34 36 62 61
R16 38 38 50 100
Proc Areadef:
Saveas: A
Area: 4nw
Subtitle: Fig. 1
Axis distribution option
Subtitle.above: 0.3
Xmax: 40
Xinc: 10
Ymax: 40
Yinc: 10
Frame: single
Proc Distribution:
Saveas: B
Xfield: 2
Yfield: 3
Cluster: n
Mark: sym6a
Axdist: y
Proc Areadef:
Clone: A
Area: 4ne
Subtitle: Fig. 2
Observations by ID
Proc Distribution:
Clone: B
Axdist: n
Mark:
Mark.field: 1
Proc Areadef:
Clone: A
Area: 4sw
Subtitle: Fig. 3
Size and shade from data
Proc Distribution:
Clone: B
Mark: sym6f
Sizefield: 4
Sizescale: 0.2
Shadefield: 5
Shadescale: 0.01
Axdist: n
# call again to draw lines obliterated by shading
Proc Distribution:
Clone: B
Mark: sym6a
Sizefield: 4
Sizescale: 0.2
Axdist: n
Proc Areadef:
Clone: A
Area: 4se
Subtitle: Fig. 4
Literal Mark
Proc Distribution:
Clone: B
Mark: Y
Axdist: n
Proc Getdata:
Data: R02 14 9 60
R03 8 3 84
R04 29 31 1
R05 35 25 88
R06 23 34 69
R07 26 19 82
R08 27 22 96
R09 8 10 73
R10 10 12 78
R11 14 31 58
Proc Distribution:
Clone: B
Mark: Z
Axdist: n
SHAR_EOF
############################
cat << \SHAR_EOF > examples/distrib2.g
Proc Page:
Title: More Distribution Examples
Proc Getdata:
Data:
0 35 9 48
50 25 31 27
17 14 30 17
9 33 27 63
0 11 50 40
25 20 33 54
4 4 12 19
30 0 0 40
75 33 67 63
25 27 80 50
12 23 29 22
31 32 47 39
29 30 25 50
18 32 33 50
9 35 44 44
14 70 40 57
21 13 25 67
8 32 50 56
33 36 49 21
22 36 50 69
0 64 6 69
0 20 67 40
0 36 57 33
17 28 28 34
13 12 23 28
40 0 67 14
0 30 57 36
14 23 35 54
0 50 50 0
0 0 19 20
0 0 0 50
0 25 50 0
0 0 0 0
0 0 100 0
0 0 0 0
0 0 0 0
Proc Areadef:
Saveas: B
Subtitle: Fig. 5: One-way distribution without clustering
Area.rectangle: 1 7.5 7 8.5
Xmax: 100
Xinc: 10
Xstub: num
Ymax: 10
Yaxis: none
Subtitle.above: 0.1
Proc Distribution:
Xfield: 2
Cluster: n
Proc Areadef:
Clone: B
Subtitle: Fig. 6: ..With clustering of duplicate points
Area.rectangle: 1 5.5 7 6.5
Proc Distribution:
Xfield: 2
Cluster: y
Proc Getdata:
Data: 1 1
1 3
2 2
2 2
2 2
4 5
5 6
5 6
5 6
5 6
5 6
7 3
8 6
8 7
9 7
9 7
Proc Areadef:
Saveas: A
Subtitle: Fig. 7
Two-way, without clustering
Subtitle.above: 0.3
Area: 4sw
Xmax: 10
Xinc: 2
Ymax: 10
Yinc: 2
Proc Distribution:
Xfield: 1
Yfield: 2
Mark: sym6a
Cluster: n
Proc Areadef:
Clone: A
Subtitle: Fig. 8
..With clustering
Area: 4se
Proc Distribution:
Xfield: 1
Yfield: 2
Mark: sym6a
Cluster: y
SHAR_EOF
############################
--
Please send comp.sources.unix-related mail to rsalz at uunet.uu.net.
Use a domain-based address or give alternate paths, or you may lose out.
More information about the Comp.sources.unix
mailing list