2 DIM SHARED tulud(1 TO 4)
\r
3 DIM SHARED kulud(1 TO 4)
\r
9 kogutulud = kogutulud + tulud(a)
\r
10 kogukulud = kogukulud + kulud(a)
\r
13 kesktulu = kogutulud / 4
\r
14 keskkulu = kogukulud / 4
\r
17 PRINT "kogutulud:", kogutulud, kesktulu
\r
18 PRINT "kogukulud:", kogukulud, keskkulu
\r
22 tuludeKoguH2lve = tuludeKoguH2lve + ABS(tulud(a) - kesktulu)
\r
23 kuludeKoguH2lve = kuludeKoguH2lve + ABS(kulud(a) - keskkulu)
\r
26 tuludeKeskH2lve = tuludeKoguH2lve / 4
\r
27 kuludeKeskH2lve = kuludeKoguH2lve / 4
\r
30 PRINT "Tulude koguh2lve:", tuludeKoguH2lve
\r
31 PRINT "Kulude koguh2lve:", kuludeKoguH2lve
\r
33 PRINT "Tulude keskh2lve:", tuludeKeskH2lve
\r
34 PRINT "Kulude keskh2lve:", kuludeKeskH2lve
\r
36 '--------------------------------------------------------------
\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