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

Monipylväskuva binomikertoimista

K.Vehkalahti (1999)

Toimituskenttä:

   1 *
   2 *m=6
   3 *MAT B=CON(m,m+1) / jatkuva aktivointi napeilla F2-Esc
   4 *MAT C=ZER(m,m,1) 
   5 *MAT I=IDN(m,m) 
   6 *MAT #TRANSFORM C BY C(I#,J#)           / *C~T(C_by_C(I#,J#)) 6*6
   7 *MAT C=I+C-C' 
   8 *MAT B(1,2)=C 
   9 *MAT CLABELS NUM(0) TO B 
  10 *MAT NAME B AS Binomikertoimia 
  11 *MAT LOAD B,#####,CUR+2 
  12 *
  13 *MATRIX B
  14 *Binomikertoimia
  15 *///          0     1     2     3     4     5     6
  16 *  1          1     1    -2    -3    -4    -5    -6
  17 *  2          1     2     1    -3    -6   -10   -15
  18 *  3          1     3     3     1    -4   -10   -20
  19 *  4          1     4     6     4     1    -5   -15
  20 *  5          1     5    10    10     5     1    -6
  21 *  6          1     6    15    20    15     6     1
  22 *
  23 *PLOT B.MAT / TYPE=MVBAR HEADER= FRAME=0 LEGEND=- GAP=1,3,0
  24 *SHADING=-1,-2,-1,-2,-1,-2,-1 XDIV=1,13,1 YDIV=1,13,1 SCALE=0:?,21:?
  25 *VALUES=###,2,-1 VALUEMIN=0 MINVALUE=0 PEN=[SwissB(8)][move(-20,0)]
  26 *YLABEL=[SwissB(57)][WHITE][move(0,-999)][rot(33)],Binomikertoimia
  27 *FILL(-1)=0.8,0.6,0,0 FILL(-2)=0,0.6,0.8,0 FILL(-3)=0,0,0,0.3
  28 *FRAMES=F F=[WHITE],0,0,1500,1500,-3 DEVICE=PS,EX.PS LINETYPE=[WHITE]
  29 *

  Hakemisto | Kuvasto | Edellinen | Seuraava