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

Aikasarja 172 vuoden ajalta

S.Mustonen (1990, 2001)

Toimituskenttä:

   1 *SAVE COLOR9
   2 *LOAD INDEX
   3 */ACTIVATE + / tämä aktivoi rivit joiden kontrollisarakkeessa on '+'
   4 **GLOBAL*
   5 *YSCALE=-20:?_,0:?_,+25:?_
   6 *TICK=1  HEADER=   PEN=[BLACK][SwissB(9)] LINETYPE=[BLACK]
   7 *SIZE=1800,300 XDIV=100,1640,60  YDIV=50,200,50
   8 *FILL-=[BLUE],1  FRAME=1
   9 *LINE=1   YLABEL=    XLABEL=
  10 *FRAMES=F1 F1=[WHITE],100,50,1640,200,-1
  11 *          [FILL-1]=0.05,0.05,0.05,0
  12 *.......................................................................
  13 *YSCALE=[ROT(90)][SwissB(9)],-20,0,+25  YSCALEPOS=-25
  14 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP1.PS
  15 *IND=ORDER,1,241
  16 *XSCALE=1(12)241           12*20=240
  17 *FILL=[RED],1,1,241,0,1
  18 *.......................................................................
  19 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP2.PS
  20 *IND=ORDER,241,481
  21 *XSCALE=241(12)481
  22 *FILL=[RED],1,241,481,0,1
  23 *.......................................................................
  24 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP3.PS
  25 *IND=ORDER,481,721
  26 *XSCALE=481(12)721
  27 *FILL=[RED],1,481,721,0,1
  28 *.......................................................................
  29 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP4.PS
  30 *IND=ORDER,721,961     720+240=960
  31 *XSCALE=721(12)961
  32 *FILL=[RED],1,721,961,0,1
  33 *.......................................................................
  34 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP5.PS
  35 *IND=ORDER,961,1201    960+240=1200
  36 *XSCALE=961(12)1201
  37 *FILL=[RED],1,961,1201,0,1
  38 *.......................................................................
  39 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP6.PS
  40 *IND=ORDER,1201,1441
  41 *XSCALE=1201(12)1441
  42 *FILL=[RED],1,1201,1441,0,1
  43 *.......................................................................
  44 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP7.PS
  45 *IND=ORDER,1441,1681    1440+240=1680
  46 *XSCALE=1441(12)1681
  47 *FILL=[RED],1,1441,1681,0,1
  48 *.......................................................................
  49 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP8.PS
  50 *IND=ORDER,1681,1921   1681+240=1921
  51 *XSCALE=1681(12)1921
  52 *FILL=[RED],1,1681,1921,0,1
  53 *.......................................................................
  54 +PLOT Heltemp2,TIME(Year),Temp  / DEVICE=PS,HELTEMP9.PS
  55 *IND=ORDER,1921,2161   1921+240=2161
  56 *XSCALE=1921(12)2064,2065:2001,2162:_
  57 *FILL=[RED],1,1921,2161,0,1
  58 *.......................................................................
  59 *
  60 *
  61 +PRINT CUR+1,E
  62 - [left_margin(8)]
  63 *
  64 *
  65 - [Swissb(21)][CYAN]
  66 *   Kuukauden keskilämpötila Helsingissä 1829-2000
  67 & 7
  68 - picture HELTEMP1.PS,*,*
  69 - picture HELTEMP2.PS,*,*-290
  70 - picture HELTEMP3.PS,*,*-580
  71 - picture HELTEMP4.PS,*,*-870
  72 - picture HELTEMP5.PS,*,*-1160
  73 - picture HELTEMP6.PS,*,*-1450
  74 - picture HELTEMP7.PS,*,*-1740
  75 - picture HELTEMP8.PS,*,*-2030
  76 - picture HELTEMP9.PS,*,*-2320
  77 E
  78 *

  Hakemisto | Kuvasto | Edellinen | Seuraava