Käyttöympäristö tekstin ja numeerisen tiedon luovaan käsittelyyn

Ryhmittäinen hajontakuvamatriisi

K.Vehkalahti (1999)

Toimituskenttä:

   1 */MDRAFTS Return / Back to the previous work 
   2 */ACTIVATE + / Re-create the picture in the graphics window 
   3 */ACTIVATE & / Plot the PostScript version of the picture  
   4 *
   5 *     Tämä toimituskenttä syntyi automaattisesti sukrokomennolla
   6 *                 /MDRAFTS IRIS,specname 
   7 *     Lopullinen kuva PostScript-muodossa luotiin aktivoimalla
   8 *     rivin 3 /ACTIVATE-sukrokomento.
   9 *
  10 * *GLOBAL* specifications
  11 *
  12 **Header=Draftman's_display:_IRIS_& 
  13 *        (grouped_by_specname)
  14 *FRAME=0 HEADER= PRIND=0 MODE=PS
  15 *XDIV=0.5,12,2.5 TYPE=DRAFTS      JITTER=30 PEN=[Times(14)]
  16 *MASK=AAAA--------
  17 * *Color1=[BLACK],0,3
  18 * *Color2=[RED],0,3
  19 * *Color3=[BLUE],0,3
  20 * *Color4=[GREEN],0,3
  21 * *Color5=[MAGENTA],0,3
  22 * *Color6=[CYAN],0,3
  23 * *Color7=[YELLOW],0,3
  24 *OUTFILE=MDRAFTS
  25 *INFILE=MDRAFTS
  26 *........................................................................
  27 CClasses of variable specname:
  28 *Setosa
  29 *Versicolor
  30 *Virginica
  31 *
  32 +GPLOT /FIX
  33 +GPLOT IRIS / CASES=specname:Setosa POINT=*Color1 INFILE=NULL
  34 *OUTSCALE=C:\SURVO_MM\TMP\MDRAFTS.SCA HEADER=*Header
  35 *
  36 *........................................................................
  37 +GPLOT IRIS / CASES=specname:Versicolor POINT=*Color2
  38 *INSCALE=C:\SURVO_MM\TMP\MDRAFTS.SCA
  39 *
  40 *........................................................................
  41 +GPLOT IRIS / CASES=specname:Virginica POINT=*Color3
  42 *INSCALE=C:\SURVO_MM\TMP\MDRAFTS.SCA
  43 *
  44 *........................................................................
  45 *DATA LEGEND
  46 *i Color
  47 *1 0
  48 *2 2
  49 *3 4
  50 *
  51 +GPLOT Y(X)=A / COLOR_CHANGE=C
  52 & PLOT Y(X)=A / COLOR_CHANGE=C+1
  53 *DEVICE=PS,C:\SURVO_MM\TMP\LEGEND.PS
  54 *A=DATA:LEGEND,i C=DATA:LEGEND,Color TYPE=0 TICKLENGTH=0
  55 *PEN=[WHITE] LINETYPE=[WHITE][line_width(3)] YSCALEPOS=20 HEADER= FRAME=1
  56 *XSCALE=-1:?_,1:?_ XDIV=127,2,21 YDIV=2,11,2 YLABEL=specname:
  57 *[FILL-5]=1,1,0,0 [FILL-3]=0,1,1,0 [FILL-1]=0,0,0,1 [FILL-4]=1,0,1,0
  58 *[FILL-6]=0,0,1,0 [FILL-7]=1,0,0,0 [FILL-8]=0,1,0,0
  59 *YSCALE=[BLACK],& 
  60 *1:?_Setosa,& 
  61 *2:?_Versicolor,& 
  62 *3:?_Virginica,& 
  63 *4:?_
  64 *
  65 *........................................................................
  66 +GPLOT /NEXT
  67 &PLOT IRIS / CASES=specname:Setosa POINT=*Color1
  68 *OUTSCALE=C:\SURVO_MM\TMP\MDRAFTS.SCA HEADER=*Header
  69 *DEVICE=PS,C:\SURVO_MM\TMP\&M1.PS
  70 *........................................................................
  71 &PLOT IRIS / CASES=specname:Versicolor POINT=*Color2
  72 *INSCALE=C:\SURVO_MM\TMP\MDRAFTS.SCA
  73 *DEVICE=PS,C:\SURVO_MM\TMP\&M2.PS
  74 *........................................................................
  75 &PLOT IRIS / CASES=specname:Virginica POINT=*Color3
  76 *INSCALE=C:\SURVO_MM\TMP\MDRAFTS.SCA
  77 *DEVICE=PS,C:\SURVO_MM\TMP\&M3.PS
  78 *........................................................................
  79 &CD C:\SURVO_MM\TMP\
  80 &EPS JOIN &MDR0.PS 1 2 3
  81 *1=&M1.PS 2=&M2.PS 3=&M3.PS
  82 *........................................................................
  83 &EPS JOIN MDRAFTS.PS L a a
  84 *a=&MDR0.PS
  85 *L=C:\SURVO_MM\TMP\LEGEND.PS
  86 *........................................................................
  87 &FILE DEL &M*.PS
  88 &CD C:\SURVO\
  89 *........................................................................
  90 *
  91 *
  92 +
  93 *Picture in the graphics window: (saved as an Enhanced Meta File)
  94 *GPLOT FILE MDRAFTS / TYPE=0
  95 *
  96 *
  97 & 
  98 *Picture in the PostScript graphics: (saved as a PostScript File)
  99 */GV-SHOW C:\SURVO_MM\TMP\MDRAFTS.PS
 100 *>COPY C:\SURVO_MM\TMP\MDRAFTS.PS C:\SURVO\MDRAFTS.PS
 101 *
 102 *

  Hakemisto | Kuvasto | Edellinen | Seuraava