From a1caf842c8f2a5795daab9a87adafe511d3071ea Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Fri, 27 Sep 2024 00:01:00 +0300 Subject: [PATCH] Remove bad example --- Math/valem.bas | 65 -------------------------------------------------- 1 file changed, 65 deletions(-) delete mode 100755 Math/valem.bas diff --git a/Math/valem.bas b/Math/valem.bas deleted file mode 100755 index 5f7ca22..0000000 --- a/Math/valem.bas +++ /dev/null @@ -1,65 +0,0 @@ -' Program to perform mathematical computation. -' It tries to compute surface area that is represented by mathematical function. -' Area is divided into small slices and they are added together to form approximate solution. -' -' -' By Svjatoslav Agejenko. -' Email: svjatoslav@svjatoslav.eu -' Homepage: http://www.svjatoslav.eu -' -' Changelog: -' ?, Initial version -' 2024.08, Improved program readability using AI - -DEFDBL A-Z -SCREEN 13 -pi = 3.14159 - -p1 = -1 -p2 = 4 -mi = 0 -dia = 1.5 -tli = 0 -bli = -1 - -siz = 100 / dia -FOR a = 0 TO 100 STEP 100 / dia - LINE (0, 100 + a)-(319, 100 + a), 2 - LINE (0, 100 - a)-(319, 100 - a), 2 -NEXT a - -LINE (0, 100)-(319, 100), 10 -ste = (p2 - p1) / 319 -o = 0 - -' for increased precision we subdivide pixels by 20 -FOR x = p1 TO p2 STEP ste / 20 - - ' This is the function whose area we are computing. - ' You can change function here to your own. - y = x ^ 2 - 3 * x - - ' there is also some clipping involved, I think better variable names are needed - u = ABS(INT(x) - x) - IF u >= lu THEN su = 1 ELSE su = 0 - lu = u - rx = (x - p1) * (1 / ste) - IF lsu > su THEN tl = 1 - lsu = su - y = y - mi - IF y > tli THEN y = tli - IF y < bli THEN y = bli - s = s + ABS(y) - ry = -y * siz + 100 - IF ry > 199 THEN ry = 199 - IF ry < 0 THEN ry = 0 - o = o + 1 - IF o = 20 THEN - o = 0 - IF tl = 1 THEN LINE (rx, 0)-(rx, 199), 4: tl = 0 - LINE (rx, 100)-(rx, ry), 15 - END IF -NEXT x -LOCATE 1, 1 -PRINT s / (1 / ste) / 20 - -- 2.20.1