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

Survon uudet verkkosivut

K.Vehkalahti (2001)

Toimituskenttä:

   1 *
   2 *FILE CREATE A 
   3 *FILE INIT A 200 
   4 *VAR B C TO A 
   5 *
   6 *PLOT x(t)=arcsin(r)*arccos(r/t),y(t)=1/r^2*sin(t) 
   7 *                 u u d e t
   8 *v e r k k o s i v u t :
   9 *  www.survo.fi
  10 *XSCALE=[color(0.4,0.1,0.2,0.2)][SwissB(17.6)][move(-80,109)],& 
  11 *-0.1:?_,0.22:?@ I=2001 YSCALE=-I:?_,I:?_ DEVICE=PS,W.PS
  12 *t=[line_width(1)][line_type(0)][WHITE],pi/8,15/8*pi,pi/08 pi=3.1415926
  13 *SIZE=1600,1000 SCALING=1.2,0.9 HOME=50,2000 PEN=[WHITE]
  14 *COLOR_CHANGE=Random HEADER= FRAMES=F,G,H
  15 *F=0,0,1600,1000,-3    [FILL-3]=0.5,0.1,0.3,0.2
  16 *G=50,50,1500,900,-2   [FILL-2]=0.4,0.1,0.2,0.2
  17 *H=100,100,1400,800,-1 [FILL-1]=0.3,0.1,0.1,0.1
  18 *LINETYPE=[line_width(3)][line_type(5)][color(0,0,0.3,0)]
  19 *TEXTS=P,W W=[SwissBO(17.6)][Blue][font_scaling(1.5,2.5)],& 
  20 *#LINES:CUR+3,CUR+3,882,190,160 P=[SwissBO(17.6)][White],& 
  21 *#LINES:CUR+1,CUR+2,930,650,80 XDIV=1,14,1 YDIV=1,8,1
  22 *FIELDS: (active)
  23 *   1 NA_   4 B        B=rand(1)     r=DATA:A,B
  24 *   2 NA_   1 C        C=5*rand(2)   Random=DATA:A,C
  25 *END
  26 *........................................................................
  27 *MAT S=CON(1,24,1.7) 
  28 *FILE SAVE MAT S TO S 
  29 *
  30 *PLOT S 
  31 *
  32 *SHADING=-1P1.3,-2P1.3,-3P1.3,-4P1.3,-5P1.3,-6P1.3,-7P1.3,-8P1.3,& 
  33 * -9P1.3,-10P1.3,-11P1.3,-12P1.3,-13P1.3,-14P1.3,-15P1.3,-16P1.3,& 
  34 *-17P1.3,-18P1.3,-19P1.3,-20P1.3,-21P1.3,-22P1.3,-23P1.3,-24P1.3
  35 * FILL(-1)=0.125,0.125,0,0 FILL(-13)=0.485,0.485,0,0 TYPE=PIE
  36 * FILL(-2)=0.155,0.155,0,0 FILL(-14)=0.515,0.515,0,0 MODE=PS
  37 * FILL(-3)=0.185,0.185,0,0 FILL(-15)=0.545,0.545,0,0 MAX=84C
  38 * FILL(-4)=0.215,0.215,0,0 FILL(-16)=0.575,0.575,0,0 FRAME=0
  39 * FILL(-5)=0.245,0.245,0,0 FILL(-17)=0.605,0.605,0,0 ANGLE=180
  40 * FILL(-6)=0.275,0.275,0,0 FILL(-18)=0.635,0.635,0,0 XDIV=0,1,0
  41 * FILL(-7)=0.305,0.305,0,0 FILL(-19)=0.665,0.665,0,0 YDIV=0,1,0
  42 * FILL(-8)=0.335,0.335,0,0 FILL(-20)=0.695,0.695,0,0 SIZE=1000,1000
  43 * FILL(-9)=0.365,0.365,0,0 FILL(-21)=0.725,0.725,0,0 DEVICE=PS,S.PS
  44 *FILL(-10)=0.395,0.395,0,0 FILL(-22)=0.755,0.755,0,0 XLABEL= YLABEL=
  45 *FILL(-11)=0.425,0.425,0,0 FILL(-23)=0.785,0.785,0,0 LEGEND=- HEADER=
  46 *FILL(-12)=0.455,0.455,0,0 FILL(-24)=0.815,0.815,0,0 LINETYPE=[WHITE]
  47 *
  48 *........................................................................
  49 *
  50 *EPS JOIN EX.PS P S 
  51 *P=W.PS,0,0,0.8,0.8
  52 *S=S.PS,-30,-40,0.8,0.8
  53 *
  54 */GV-SHOW EX.PS
  55 *
  56 *

  Hakemisto | Kuvasto | Edellinen | Seuraava