X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=math%2Fkorrel.bas;fp=math%2Fkorrel.bas;h=0000000000000000000000000000000000000000;hp=80777ff0dc4f39479dac4b47ee5531c72687b282;hb=08a50b7a860f6aa39f58108a07e2fc13e46260b9;hpb=68c9ea9c1b1c03a3d38bd585f0bdeee6371cb05b;ds=sidebyside

diff --git a/math/korrel.bas b/math/korrel.bas
deleted file mode 100755
index 80777ff..0000000
--- a/math/korrel.bas
+++ /dev/null
@@ -1,66 +0,0 @@
-DECLARE SUB init ()
-DIM SHARED tulud(1 TO 4)
-DIM SHARED kulud(1 TO 4)
-
-CLS
-init
-
-FOR a = 1 TO 4
-  kogutulud = kogutulud + tulud(a)
-  kogukulud = kogukulud + kulud(a)
-NEXT a
-
-kesktulu = kogutulud / 4
-keskkulu = kogukulud / 4
-
-
-PRINT "kogutulud:", kogutulud, kesktulu
-PRINT "kogukulud:", kogukulud, keskkulu
-
-
-FOR a = 1 TO 4
-tuludeKoguH2lve = tuludeKoguH2lve + ABS(tulud(a) - kesktulu)
-kuludeKoguH2lve = kuludeKoguH2lve + ABS(kulud(a) - keskkulu)
-NEXT a
-
-tuludeKeskH2lve = tuludeKoguH2lve / 4
-kuludeKeskH2lve = kuludeKoguH2lve / 4
-
-
-PRINT "Tulude koguh2lve:", tuludeKoguH2lve
-PRINT "Kulude koguh2lve:", kuludeKoguH2lve
-
-PRINT "Tulude keskh2lve:", tuludeKeskH2lve
-PRINT "Kulude keskh2lve:", kuludeKeskH2lve
-
-'--------------------------------------------------------------
-
-FOR a = 1 TO 4
-  b = b + (tulud(a) - ABS(kesktulu)) * (kulud(a) - ABS(keskkulu))
-  c = c + (tulud(a) - ABS(kesktulu)) ^ 2
-  d = d + (kulud(a) - ABS(keskkulu)) ^ 2
-NEXT a
-
-e = SQR(c * d)
-f = b / e
-
-
-PRINT f
-
-SUB init
-
-tulud(1) = 1
-kulud(1) = 10
-
-tulud(2) = 2
-kulud(2) = 20
-
-tulud(3) = 3
-kulud(3) = 30
-
-tulud(4) = 4
-kulud(4) = 41
-
-
-END SUB
-