Statistics: Posted by bongomeno — Tue Feb 13, 2024 6:10 pm
Statistics: Posted by Erik — Mon Feb 05, 2024 3:41 pm
Statistics: Posted by Erik — Mon Feb 05, 2024 3:09 pm
Statistics: Posted by bongomeno — Tue Dec 19, 2023 11:52 am
Statistics: Posted by MikeHawk — Sat Dec 16, 2023 3:48 pm
Do they even know who their target audience is?Another word you might hear is algorithm. It sounds complicated, but you probably already know what it means.
Statistics: Posted by MikeHawk — Sat Dec 16, 2023 3:39 pm
Statistics: Posted by buddpaul — Fri Dec 15, 2023 5:23 pm
Statistics: Posted by buddpaul — Fri Dec 15, 2023 5:22 pm
Statistics: Posted by MikeHawk — Fri Dec 15, 2023 3:08 pm
Code:
5 PRINT "SVG sine wave"10 HTML20 PRINT "<svg width = '640' height = '480'>"30 FOR i = 1 TO 36040 PRINT "<rect x = '"; i / 360 * 320; "' y = '"; sin(i / 180 * 3.14) * 50 + 50; "' width = '1' height = '1' />"50 NEXT i60 PRINT "</svg>"
Code:
1 REM https://rosettacode.org/wiki/Draw_a_sphere5 PRINT "SVG sphere"10 HTML20 PRINT "<svg width = '640' height = '480'>"30 LET j = 240 FOR i = 221 TO 0 STEP j * -150 FOR k = -3.14 TO 3.14 STEP .0260 PRINT "<rect x = '"; 221 + i * sin(k); "' y = '"; 222 + 221 * cos(k); "' width = '1' height = '1' />"70 PRINT "<rect x = '"; 221 + 221 * sin(k); "' y = '"; 222 + (i - 1) * cos(k); "' width = '1' height = '1' />"80 NEXT k90 LET j = j + 1100 NEXT i
Code:
1 REM https://rosettacode.org/wiki/Barnsley_fern5 PRINT "SVG Barnsley fern"10 HTML20 PRINT "<svg width = '640' height = '480' style = 'background-color:red;'>"30 FOR i = 1 TO 1000040 LET r = RND50 IF NOT(r > 0 AND r < .01) THEN 8060 LET x = .070 LET y = .16 * y80 IF NOT(r > .01 AND r < .08) THEN 11090 LET x = .22 * x - .26 * y100 LET y = -.23 * x + .22 * y + 1.6110 IF NOT(r > .075 AND r < .15) THEN 140120 LET x = .15 * x + .28 * y130 LET y = -.29 * x + .24 * y + .44140 LET x = .85 * x + .04 * y150 LET y = -.04 * x + .85 * y + 1.6160 LET x1 = (x + 3) * 70170 LET y1 = 700 - y * 70180 PRINT "<rect x = '"; x1; "' y = '"; y1; "' width = '1' height = '1' fill = 'green' />"190 NEXT i200 PRINT "</svg>"
Code:
1 REM https://rosettacode.org/wiki/Archimedean_spiral5 PRINT "SVG Archimedean spiral"10 HTML20 PRINT "<svg width = '640' height = '480'>"30 LET size = 8040 LET x = 25050 LET y = 20060 LET a = 1.570 LET b = .780 FOR t = 0 TO size * PI STEP .190 LET r = a + b * t100 PRINT "<rect x = '"; r * cos(t) + x; "' y = '"; r * sin(t) + y; "' width = '1' height = '1' />"110 NEXT t120 PRINT "</svg>"
Code:
5 PRINT "SVG curlicue"10 HTML20 PRINT "<svg width = '640' height = '480'>"30 FOR f = 0 TO 1000 STEP .140 LET x = x + SIN(f * f)50 LET y = y + COS(f * f)60 PRINT "<rect x = '"; x; "' y = '"; y; "' width = '1' height = '1' />"70 NEXT f80 PRINT "</svg>"
Statistics: Posted by bongomeno — Thu Oct 05, 2023 9:25 pm
Code:
1 REM https://rosettacode.org/wiki/Attractive_numbers10 FOR x = 1 TO 12020 LET n = x30 LET c = 040 IF n MOD 2 <> 0 THEN 7050 LET n = INT(n / 2)60 LET c = c + 170 IF n MOD 2 = 0 THEN 4080 FOR i = 3 TO SQR(n) STEP 290 IF n MOD i <> 0 THEN 120100 LET n = INT(n / i)110 LET c = c + 1120 IF n MOD i = 0 THEN 90130 NEXT i140 IF n <= 2 THEN 160150 LET c = c + 1160 IF NOT(PRIME(c)) THEN 180170 PRINT x,180 NEXT x
Code:
1 REM https://rosettacode.org/wiki/Nth_root10 LET a = INT(RND * 5999) + 220 PRINT "nth root of "; a; "..."30 FOR n = 1 TO 1040 LET p = .0000150 LET x = a60 LET y = a / n70 IF ABS(x - y) <= p THEN 11080 LET x = y90 LET y = ((n - 1) * y + a / y ^ (n - 1)) / n100 IF ABS(x - y) > p THEN 80110 PRINT n; " : "; y120 NEXT n
Code:
1 REM https://rosettacode.org/wiki/Catalan_numbers10 LET @(0) = 120 FOR n = 0 TO 1530 LET p = n + 140 LET @(p) = 050 FOR i = 0 TO n60 LET q = n - i70 LET @(p) = @(p) + @(i) * @(q)80 NEXT i90 PRINT n; " "; @(n)100 NEXT n
Code:
1 REM https://rosettacode.org/wiki/Prime_decomposition10 LET loops = 10020 FOR x = 1 TO loops30 LET n = x40 PRINT n; " : ";50 LET c = 060 IF n MOD 2 > 0 THEN 11070 LET n = INT(n / 2)80 LET @(c) = 290 LET c = c + 1100 IF n MOD 2 = 0 THEN 70110 FOR i = 3 TO SQR(n) STEP 2120 IF n MOD i > 0 THEN 170130 LET n = INT(n / i)140 LET @(c) = i150 LET c = c + 1160 IF n MOD i = 0 THEN 130170 NEXT i180 IF n <= 2 THEN 210190 LET @(c) = n200 LET c = c + 1210 FOR y = 0 TO c220 IF @(y) = 0 THEN 250230 PRINT @(y); " ";240 LET @(y) = 0250 NEXT y260 PRINT270 NEXT x
Code:
1 REM Prime Table10 PRINT "Generating table of primes below..."20 HTML30 PRINT "<center><table><tr>"40 FOR y = 1 TO 5050 FOR x = 1 TO 2060 LET i = i + 170 PRINT "<td style = 'border:1px solid black; background-color:yellow;'>"80 PRINT i; ":<br /> "; PRIME(i)90 PRINT "</td>"100 NEXT x110 PRINT "</tr><tr>"120 NEXT y130 PRINT "</tr></table></center>"
Statistics: Posted by bongomeno — Thu Oct 05, 2023 1:37 am