Environment for creative processing of text and numerical data

Diagram of several time series

S.Mustonen (1990)

Edit field:

   1 *SAVE COLOR8
   2 *LOAD COLOR9
   3 **GLOBAL*
   4 *HEADER=[Times(15)][CYAN],Consumption_of_alcoholic_beverages_in_Finland
   5 *HOME=0,0 SIZE=1500,1100 LINETYPE=[BLACK][line_type(0)]
   6 *PEN=[Times(12)][BLACK]
   7 *XDIV=300,1000,200 YDIV=150,800,150
   8 *FRAME=1  YSCALE=5.5(.5)9.5
   9 *GRID=[WHITE][line_type(1)],XY  XSCALE=73:1973,76,79,82,85,87*
  10 *XLABEL=  YLABEL=litres_per_inhabitant
  11 *.......................................................................
  12 *LINE=[BLACK],1,1,Age_18_years_or_more
  13 *FILL=[color(1,0,0,0)],1,1,15,5.5
  14 *FRAMES=F1,F2   F1=[WHITE],0,0,1800,1100,-1    [FILL-1]=0.10,0.10,0.10,0
  15 *               F2=[WHITE],300,150,1000,800,-2 [FILL-2]=0.4,0,0,0
  16 *PLOT CONS,YEAR,A18  /  DEVICE=PS,ALKO1.PS
  17 *.......................................................................
  18 *FRAME=0 HEADER=
  19 *LINE=[BLACK],1,1,Age_15_years_or_more
  20 *FILL=[color(1,0.3,0,0)],1,1,15,5.5
  21 *PLOT CONS,YEAR,A15  /  DEVICE=PS,ALKO2.PS
  22 *.......................................................................
  23 *FRAME=0 HEADER=
  24 *LINE=[BLACK],1,1,All_inhabitants
  25 *FILL=[color(1,1,0,0)],1,1,15,5.5
  26 *PLOT CONS,YEAR,ALL  /  DEVICE=PS,ALKO3.PS
  27 *.......................................................................
  28 *HEADER=  FRAME=0
  29 *PLOT Y(X)=5.5       /  DEVICE=PS,ALKO4.PS
  30 *.......................................................................
  31 *
  32 *PRINT CUR+1,E 
  33 - [left_margin(12)]
  34 & 26
  35 - picture ALKO1.PS,*,*
  36 - picture ALKO2.PS,*,*
  37 - picture ALKO3.PS,*,*
  38 - picture ALKO4.PS,*,*
  39 E
  40 *
  41 *DATA CONS,A,B,C
  42 C YEAR  ALL     A18    A15
  43 A  73   5.60   7.93   7.38
  44 *  74   6.45   9.02   8.42
  45 *  75   6.19   8.55   8.00
  46 *  76   6.31   8.63   8.09
  47 *  77   6.38   8.69   8.15
  48 *  78   6.22   8.41   7.89
  49 *  79   6.21   8.36   7.84
  50 *  80   6.31   8.45   7.94
  51 *  81   6.40   8.52   8.01
  52 *  82   6.35   8.41   7.92
  53 *  83   6.37   8.41   7.94
  54 *  84   6.49   8.53   8.06
  55 *  85   6.46   8.47   8.02
  56 *  86   6.84   8.96   8.48
  57 B  87   6.97   9.11   8.63
  58 *

  Index | Catalog | Previous | Next