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

Kaksiulotteisten normaalijakaumien sekoitus

S.Mustonen, Survon käyttöopas (1992), s. 321

Toimituskenttä:

   1 *
   2 *FILE CREATE SEKOITUS,9,3,64,7,1000 
   3 *FIELDS:
   4 *1 N 1 Ryhmä
   5 *2 N 4 X
   6 *3 N 4 Y
   7 *END
   8 *
   9 *VAR Ryhmä,X,Y TO SEKOITUS 
  10 * Ryhmä=3*int(0.3+rnd(1)) mahdolliset arvot 0 ja 3 (0 tn:llä 0.7)
  11 * U=probit(rnd(1)) V=probit(rnd(1))
  12 * X=if(Ryhmä=0)then(U)else(U+1)
  13 * Y=if(Ryhmä=0)then(U+V)else(0.3*U+0.5*V-1)
  14 *
  15 *HEADER=[Swiss(15)],Kaksiulotteisten_normaalijakaumien_sekoitus
  16 *PLOT SEKOITUS,X,Y 
  17 *POINT=[line_type(0)],0,10,Ryhmä,0
  18 *SCALE=-5(+1)5 GRID=[line_type(2)],XY
  19 *SIZE=1160,1160 XDIV=1,8,1 YDIV=1,8,1 DEVICE=PS,EX.PS
  20 *

  Hakemisto | Kuvasto | Edellinen | Seuraava