math/korrel.bas

   1 DECLARE SUB init ()\r
   2 DIM SHARED tulud(1 TO 4)\r
   3 DIM SHARED kulud(1 TO 4)\r
   4 \r
   5 CLS\r
   6 init\r
   7 \r
   8 FOR a = 1 TO 4\r
   9   kogutulud = kogutulud + tulud(a)\r
  10   kogukulud = kogukulud + kulud(a)\r
  11 NEXT a\r
  12 \r
  13 kesktulu = kogutulud / 4\r
  14 keskkulu = kogukulud / 4\r
  15 \r
  16 \r
  17 PRINT "kogutulud:", kogutulud, kesktulu\r
  18 PRINT "kogukulud:", kogukulud, keskkulu\r
  19 \r
  20 \r
  21 FOR a = 1 TO 4\r
  22 tuludeKoguH2lve = tuludeKoguH2lve + ABS(tulud(a) - kesktulu)\r
  23 kuludeKoguH2lve = kuludeKoguH2lve + ABS(kulud(a) - keskkulu)\r
  24 NEXT a\r
  25 \r
  26 tuludeKeskH2lve = tuludeKoguH2lve / 4\r
  27 kuludeKeskH2lve = kuludeKoguH2lve / 4\r
  28 \r
  29 \r
  30 PRINT "Tulude koguh2lve:", tuludeKoguH2lve\r
  31 PRINT "Kulude koguh2lve:", kuludeKoguH2lve\r
  32 \r
  33 PRINT "Tulude keskh2lve:", tuludeKeskH2lve\r
  34 PRINT "Kulude keskh2lve:", kuludeKeskH2lve\r
  35 \r
  36 '--------------------------------------------------------------\r
  37 \r
  38 FOR a = 1 TO 4\r
  39   b = b + (tulud(a) - ABS(kesktulu)) * (kulud(a) - ABS(keskkulu))\r
  40   c = c + (tulud(a) - ABS(kesktulu)) ^ 2\r
  41   d = d + (kulud(a) - ABS(keskkulu)) ^ 2\r
  42 NEXT a\r
  43 \r
  44 e = SQR(c * d)\r
  45 f = b / e\r
  46 \r
  47 \r
  48 PRINT f\r
  49 \r
  50 SUB init\r
  51 \r
  52 tulud(1) = 1\r
  53 kulud(1) = 10\r
  54 \r
  55 tulud(2) = 2\r
  56 kulud(2) = 20\r
  57 \r
  58 tulud(3) = 3\r
  59 kulud(3) = 30\r
  60 \r
  61 tulud(4) = 4\r
  62 kulud(4) = 41\r
  63 \r
  64 \r
  65 END SUB\r
  66 \r