* fixed some email addresses

[qbasicapps.git] / math / korrel.bas

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