Meta tags:

Headings (most frequently used words):

2013, april, tuesday, saturday, 2016, november, 2014, october, thursday, sunday, wednesday, september, basic, 14, friday, february, 2015, 15, march, 24, 13, game, ball, bits, copy, paste, run, 16, monday, 23, 18, january, december, 22, 26, 17, 28, search, links, topics, blog, archive, popular, posts, subscribe, to, 256, total, pageviews, play, station, joystick, test, parametric, spirograph, graphing, sensor, using, arduino, hello, world, pythagoras, pac, man, bouncy, maze, report, generator, for, busy, teachers, flappy, 3d, bucktooth, bunny, marbles, matching, cards, estimate, the, angle, nim, with, levels, body, simulation, solid, of, revolution, definite, integral, rock, paper, scissors, number, bases, pascal, triangle, cellular, automation, fastest, lap, tetris,

Text of the page (most frequently used words):
then (273), color (128), int (93), end (93), for (91), next (78), text (76), mass (76), and (75), board (64), 100 (56), the (56), gosub (55), dim (50), rand (50), 200 (49), circle (44), 600 (42), black (40), 300 (39), refresh (37), return (34), xpos (33), rect (33), print (33), 150 (31), yspeed (30), xspeed (30), ypos (29), true (29), mid (29), flag (29), 400 (29), area (28), font (26), false (26), 500 (26), comments (25), shape (25), posted (24), white (24), radius (24), type (24), ymin (24), row (22), monsterx (22), monsterxspeed (22), monsteryspeed (22), arial (21), graphsize (20), red (20), xmin (20), hhh (20), clg (19), turn (19), until (18), level (18), ycell (18), xcell (18), monstery (18), fastgraphics (16), 350 (16), 250 (16), sin (15), loop (14), rot (14), down (14), green (14), yellow (14), base (14), code (13), score (13), pause (13), 2013 (13), xpac (13), basic (12), blue (12), step (12), speed (12), line (12), clickx (12), righ (12), lef (12), checkmove (11), this (11), cos (11), grass (11), dist (11), 170 (11), grad (11), stat (10), game (10), time (10), ymax (10), tries (10), cores (9), pair (9), nball (9), out (9), balls (9), marble (9), birdy (9), ypac (9), november (8), april (8), are (8), 450 (8), pixel (8), new (8), toradix (8), you (8), xmax (8), bound1 (8), levels (8), pile (8), clicky (8), lifes (8), october (7), key (7), 180 (7), tobinary (7), rad (7), second (7), minute (7), hour (7), 3600 (7), yg1 (7), rgb (7), 1000 (7), 470 (7), guess (7), left (7), distance (7), mouth (7), xball (7), yball (7), serial (7), 16777234 (6), 16777236 (6), when (6), position (6), track (6), stamp (6), 700 (6), one (6), tuesday (6), colision (6), bound2 (6), fill (6), draw (6), abs (6), mousey (6), answer (6), cards (6), waitfordirection (6), 530 (6), right (6), matrix (6), going (6), monster (6), hhhhh (6), posts (5), 256 (5), ball (5), september (5), simulation (5), darkgreen (5), arrow (5), keys (5), orange (5), program (5), goto (5), 800 (5), tree (5), laps (5), penwidth (5), 321 (5), saturday (5), element (5), initial (5), drawing (5), gravity (5), won (5), clickclear (5), floor (5), value (5), mousex (5), 240 (5), zball (5), obstaclehight (5), life (5), direc (5), monsters (5), monstersname (5), write (5), arduino (4), bucktooth (4), bunny (4), december (4), january (4), february (4), march (4), programs (4), 0x1cc00 (4), initialwait (4), main (4), piecedown (4), press (4), ref (4), 16777237 (4), 16777235 (4), selectshape (4), use (4), 140 (4), 220 (4), purple (4), 2200 (4), bestime (4), else (4), 279 (4), version (4), fractal (4), from (4), acc (4), 190 (4), two (4), rem (4), range (4), 255 (4), volume_solid (4), variables (4), collide (4), thought (4), 320 (4), 270 (4), 120 (4), angle1 (4), angle2 (4), 330 (4), error1 (4), error2 (4), colisionflag (4), round (4), goingout (4), total_speed (4), va1 (4), va2 (4), 2014 (4), ceil (4), 520 (4), packman (4), self (4), collum (4), 2016 (4), delay (4), map (4), 1023 (4), 127 (4), analogread (4), void (4), run (4), all (3), atom (3), play (3), flappy (3), pac (3), work (3), very (3), big (3), 440 (3), endgame (3), wait (3), frame (3), controls (3), takeline (3), last (3), 260 (3), complete (3), thursday (3), with (3), car1 (3), car2 (3), pointer (3), init (3), 370 (3), 610 (3), wednesday (3), not (3), update (3), chaotic (3), rule (3), plot (3), comp (3), number (3), based (3), 410 (3), but (3), change (3), yg2 (3), input (3), solid (3), arc (3), xac (3), yac (3), sunday (3), ans (3), first (3), start (3), computerplay (3), wining (3), units (3), twos (3), fours (3), bestof (3), 360 (3), drawscale (3), drawpie (3), cliked (3), win (3), player (3), pie (3), question (3), repetition (3), window (3), can (3), drawtable (3), drawball (3), finish (3), vb1 (3), vb2 (3), vap1 (3), vap2 (3), dead (3), world (3), 900 (3), copy (3), paste (3), com (2), subscribe (2), parametric (2), spirograph (2), graphing (2), sensor (2), using (2), bouncy (2), maze (2), tetris (2), station (2), joystick (2), test (2), man (2), popular (2), june (2), maths (2), topics (2), rosetta (2), page (2), each (2), oldrot (2), procedures (2), scorepanel (2), drawboard (2), drawshape (2), these (2), piece (2), newboard (2), over (2), function (2), just (2), outputvisible (2), grey (2), car (2), sec (2), lap (2), cellular (2), automation (2), used (2), different (2), 001 (2), 010 (2), site (2), nrows (2), bases (2), rock (2), paper (2), scissors (2), distx (2), disty (2), calculates (2), between (2), functions (2), parameters (2), boundaries (2), hardcoded (2), they (2), highlighted (2), choose (2), graph (2), generate (2), volume (2), revolution (2), body (2), after (2), pieces (2), want (2), who (2), takes (2), wins (2), click (2), 420 (2), what (2), alert (2), humanplay (2), interactive (2), whiteboard (2), 280 (2), real (2), 380 (2), error (2), friday (2), selecting (2), card (2), drawcards (2), yes (2), there (2), three (2), four (2), five (2), 10000 (2), 993 (2), sound (2), khan (2), academy (2), programming (2), ear (2), tooth (2), eye (2), 002 (2), while (2), poly (2), will (2), get (2), courier (2), xxxxxxxxxxxxxxxxxxxxxxxxxx (2), changing (2), 435 (2), points (2), pacman (2), erases (2), aril (2), 210 (2), hhhhhhhhhhhhhhhhhhhhhhh (2), hhhhhhh (2), hhhh (2), 2015 (2), pythagoras (2), hello (2), open (2), file (2), begin (2), 9600 (2), setup (2), asc (2), read (2), openserial (2), centery (2), centerx (2), bits (2), manuelnogueirasantos, gmail, total, pageviews, mandelbrot, sprites, july, blog, archive, music, logic, image, matrices, finance, euler, computing, calculus, cryptography, chaos, animation, fractals, mental, drawings, students, statistics, physics, games, tiny, weeny, tutorial, language, comparison, classroom, suite, facebook, links, search, home, older, 0x10f00, 0x12222, 0x100f0, 0x14444, 0x144c0, 0x18e00, 0x16440, 0x10e20, 0x14460, 0x10e80, 0x1c440, 0x12e00, 0x106c0, 0x18c40, 0x16c00, 0x14620, 0x10e40, 0x14c40, 0x14e00, 0x14640, 0x10c60, 0x14c80, 0x1c600, 0x12640, newpiece, executed, instructions, before, chr, fat, wrong, stuff, 1200, 2000, 1800, 999, intro, lake, result, panel, 715, 102, count, best, goes, lapcount, fastest, was, malfunctioning, long, because, did, where, alternating, patterns, http, mathworld, wolfram, elementarycellularautomaton, html, every, rows, 110, got, bbc, pascal, triangle, counting, times, roman, 2048, length, system, values, endif, objects, dimentions, equation1, equation2, definite, integral, boudaries, equation, any, keep, centered, inital, particles, initializing, complaints, added, some, take, many, piles, select, collumn, remove, prompt, computer, confirm, darkblue, 143, 193, 243, 293, 343, nim, designed, played, players, winner, subroutines, palyer, 775, 770, estimate, angle, another, 750, atributing, questions, answers, string, checking, repetitions, clicking, matching, clean, most, bugs, still, few, graphics, size, bounceflag, order, here, hurray, easy, make, more, initializes, scenaries, cue, drag, reset, oops, shots, ____________, shoot, mat, collision, detection, calc, marbles, brilliant, educational, learn, everything, including, basic256, see, link, below, similar, wich, javascript, face, 185, 230, https, www, khanacademy, org, challenge, 003, 005, 0005, chord, darkyellow, example, retake, minimalist, bird, progress, jump, obstacles, restart, point, losing, running, columns, death, movement, 015, benny, evolves, develops, his, has, improved, brilliantely, fantasticaly, well, exeptionally, exellence, homework, marvellous, wonder, outstanding, unique, beautifull, trust, assume, believe, achive, attain, fantastic, results, high, grades, lots, tonnes, report, generator, busy, teachers, xxxxxxxxxxx, xxxxxxxxxxxxxxx, xxxxxxxxxxxxxxxx, writing, scores, transportation, adding, stop, crashing, wall, identifies, cells, around, dies, eyes, shift, direction, 139, action, positions, 125, 405, put, array, easier, handle, comment, vertical, horizontal, formula, sqrt, rectangle, monday, blackboard, txt, notepad, word, same, folder, application, creates, writes, hellow, println, 277, 325, com4, com3, 90000, set, small, related, various, note, sometimes, recent, versions,

Text of the page (random words):
mass 0 10 x 0 100 y 0 100 mass 1 10 x 1 150 y 1 150 mass 2 10 x 2 200 y 2 200 mass 3 10 x 3 250 y 3 250 mass 10 20 x 10 300 y 10 300 return three balls 5 tries 4 mass 0 10 x 0 100 y 0 100 mass 1 10 x 1 200 y 1 200 mass 3 10 x 3 400 y 3 400 mass 10 20 x 10 400 y 10 300 mass 11 20 x 11 350 y 11 350 mass 12 20 x 12 250 y 12 250 return four balls 8 tries 6 mass 0 10 x 0 250 y 0 250 mass 1 10 x 1 150 y 1 150 mass 2 10 x 2 350 y 2 350 mass 3 10 x 3 400 y 3 100 mass 4 10 x 4 100 y 4 400 mass 10 20 x 10 100 y 10 100 mass 11 20 x 11 400 y 11 400 mass 12 20 x 12 150 y 12 350 mass 13 20 x 13 350 y 13 150 return five balls 8 tries 7 mass 0 10 x 0 250 y 0 250 mass 1 10 x 1 100 y 1 100 mass 2 10 x 2 400 y 2 400 mass 3 10 x 3 400 y 3 100 mass 4 10 x 4 100 y 4 400 mass 10 20 x 10 150 y 10 150 mass 11 20 x 11 350 y 11 350 mass 12 20 x 12 150 y 12 350 mass 13 20 x 13 350 y 13 150 return initializes the scenaries new for u 0 to 19 mass u 0 x u 0 y u 0 next u return waitfordirection do clickclear refresh do gosub drawtable for u 0 to 19 dx mousex x 0 dy mousey y 0 gosub drawball next u cue color white line mousex 100 dx mousey 100 dy x 0 y 0 color red line mousex mousey x 0 y 0 circle mousex mousey 3 refresh dist dx 2 dy 2 5 vx 0 clickx x 0 dist 10000 vy 0 clicky y 0 dist 10000 until clicky 0 gosub round until out balls or tries 0 turn turn 1 out 0 return round tries tries 1 do gosub drawtable for u 0 to 19 balls out goingout false if mass u 0 and x u 450 or x u 50 or y u 450 or y u 50 then goingout true mass u mass u 1 if mass u 0 then goingout true out out 1 vx u 0 vy u 0 y u 0 x u 0 end if white out if u 0 then gosub finish end if drag vx u vx u 0 993 vy u vy u 0 993 x u x u vx u y u y u vy u draw gosub drawball next u refresh gosub colision total_speed 0 for marble 0 to 19 total_speed total_speed abs vx marble abs vy marble next marble until total_speed 1 and goingout false if tries 0 and out balls then gosub finish reset the marble for the next round for marble 0 to 19 vx marble 0 vy marble 0 next marble return finish color white font arial 50 100 text 170 200 oops refresh end return drawtable color blue rect 0 0 800 600 for grad 1 to 10 color rgb 0 83 4 grad 0 rect 50 grad 50 grad 400 grad 2 400 grad 2 rect 500 grad 50 grad 250 grad 2 400 grad 2 next grad color rgb 0 83 0 font arial 22 100 text 530 70 round nº turn text 530 120 shots left tries text 530 170 ____________ text 530 220 shoot the text 530 270 yellow balls text 530 320 out of the mat return drawball font arial 8 100 if mass u 0 then for k 1 to mass u color rgb 200 1 2 1 k 200 1 2 1 k 0 if u 0 then color rgb 200 1 2 1 k 200 1 2 1 k 200 1 2 1 k circle x u y u mass u k next k end if return colision rem collision detection for u1 0 to 18 for u2 u1 1 to 19 dx x u2 x u1 dy y u2 y u1 distance dx dx dy dy 5 if distance mass u1 mass u2 and x u2 450 and x u2 50 and y u2 450 and y u2 50 then if colisionflag u1 u2 0 then rem vx and vy calc sound 1000 7 ax dx distance ay dy distance va1 vx u1 ax vy u1 ay vb1 vx u1 ay vy u1 ax va2 vx u2 ax vy u2 ay vb2 vx u2 ay vy u2 ax vap1 va1 1 ed va2 va1 1 mass u1 mass u2 vap2 va2 1 ed va1 va2 1 mass u2 mass u1 vx u1 vap1 ax vb1 ay vy u1 vap1 ay vb1 ax vx u2 vap2 ax vb2 ay vy u2 vap2 ay vb2 ax colisionflag u1 u2 1 end if else colisionflag u1 u2 0 end if next u2 next u1 return posted by m s at 1 05 pm no comments sunday november 24 2013 matching cards another game for the interactive whiteboard dim a 4 3 dim value 4 3 dim pair 2 dim pair 2 font arial 40 40 graphsize 750 450 time second minute 60 hour 3600 qa 0 atributing questions and answers do n1 int rand 9 1 n2 int rand 9 1 question n1 x n2 answer string n1 n2 repetition false checking for repetitions for n 0 to 2 for m 0 to 3 if a m n answer then repetition true next m next n if repetition false then selecting 1 card for question q 0 do v int rand 3 h int rand 4 if a h v then a h v question value h v int answer q 1 end if until q 1 selecting 1 card for answer a 0 do v int rand 3 h int rand 4 if a h v then a h v answer value h v int answer a 1 end if until a 1 qa qa 2 end if until qa 12 clicking the cards cards 12 do gosub drawcards p 0 do clickclear t 0 do if second minute 60 hour 3600 t then color white rect 600 0 450 150 color black text 600 40 second minute 60 hour 3600 time sec t second minute 60 hour 3600 end if until clicky 0 x int clickx 150 y int clicky 150 pair p value x y pair p a x y p p 1 color red circle 150 x 20 150 y 20 10 until p 2 pause 5 if pair 0 pair 1 and pair 0 pair 1 then for n 0 to 3 for m 0 to 2 if value n m pair 1 then a n m yes next m next n cards cards 2 end if until cards 0 drawcards for n 0 to 3 for m 0 to 2 color black if a n m yes then color green rect 150 n 150 m 140 140 color white text 150 n 20 150 m 40 a n m next m next n return end posted by m s at 8 57 am no comments friday november 1 2013 estimate the angle this is a game designed to be played on an interactive whiteboard by two players clg fastgraphics p1 0 p2 0 bestof 5 main do angle1 int rand 360 angle2 int rand 360 gosub drawscale gosub drawpie color white text 170 280 a turn refresh gosub cliked text 170 330 guess guess º refresh error1 abs guess angle1 pause 1 text 470 280 b turn refresh gosub cliked text 470 330 guess guess º refresh error2 abs guess angle2 pause 1 gosub drawscale gosub drawpie color red if error1 error2 then win 200 p1 p1 1 color green end if text 170 330 real angle1 º text 170 380 error error1 º color red if error1 error2 then win 470 p2 p2 1 color green end if text 470 330 real angle2 º text 470 380 error error2 º color green text win 150 winner refresh pause 2 clg until p1 bestof or p2 bestof end code color black if p1 5 then text 270 320 player a won if p2 5 then text 270 320 player b won refresh end subroutines cliked clickclear do guess mousey 7 until clicky 0 return drawpie font arial 30 100 text 170 10 palyer a p1 text 470 10 player b p2 color orange pie 150 70 200 200 0 pi angle1 180 color blue pie 450 70 200 200 0 pi angle2 180 return drawscale font arial 10 100 color black graphsize 800 600 rect 0 0 800 600 color white for y 0 to 360 step 20 text 10 y y line 30 y 7 100 y 7 text 775 y y line 700 y 7 770 y 7 next y refresh return posted by m s at 1 41 am no comments tuesday october 22 2013 nim with levels after complaints i added some levels to the game take as many pieces you want from one of the piles the one who takes the last piece wins print click to select the collumn and the number of pieces to remove print who takes the last wins fastgraphics graphsize 400 420 font arial 17 100 a 0 b 0 c 0 d 0 level prompt what level 3 7 level int level if level 6 then a 7 if level 5 then b 6 if level 4 then c 5 if level 3 then d 4 e 3 f 2 g 1 for turn 1 to 1000 gosub draw if a b c d e f g 0 then color white alert computer me won refresh end end if refresh if turn 1 then ans confirm do you want to play first y n if ans then print start if not ans then gosub computerplay gosub draw refresh end if end if gosub humanplay gosub draw if a b c d e f g 0 then alert you won refresh end end if refresh gosub computerplay next turn computerplay thought 0 wining false do thought thought 1 do at a bt b ct c dt d et e ft f gt g pile int rand 7 if pile 0 then at at int rand at 1 if pile 1 then bt bt int rand bt 1 if pile 2 then ct ct int rand ct 1 if pile 3 then dt dt int rand dt 1 if pile 4 then et et int rand et 1 if pile 5 then ft ft int rand ft 1 if pile 6 then gt gt int rand gt 1 until at 1 and bt 1 and ct 1 and dt 1 and et 1 and ft 1 and gt 1 a toradix at 8 2 b toradix bt 8 2 c toradix ct 8 2 d toradix dt 8 2 e toradix et 8 2 f toradix ft 8 2 g toradix gt 8 2 units int mid a 4 1 int mid b 4 1 int mid c 4 1 int mid d 4 1 int mid e 4 1 int mid f 4 1 int mid g 4 1 twos int mid a 3 1 int mid b 3 1 int mid c 3 1 int mid d 3 1 int mid e 3 1 int mid f 3 1 int mid g 3 1 fours int mid a 2 1 int mid b 2 1 int mid c 2 1 int mid d 2 1 int mid e 2 1 int mid f 2 1 int mid g 2 1 if units 2 int units 2 and twos 2 int twos 2 and fours 2 int fours 2 then wining true until wining true or thought 1000 a at b bt c ct d dt e et f ft g gt pause 1 return draw clg color darkblue rect 0 0 400 420 color grey text 33 20 a b c d e f g for n 1 to 7 for radius 20 to 0 step 1 color rgb 255 radius 7 255 radius 7 0 if a n then circle 50 n 50 30 radius if b n then circle 100 n 50 30 radius if c n then circle 150 n 50 30 radius if d n then circle 200 n 50 30 radius if e n then circle 250 n 50 30 radius if f n then circle 300 n 50 30 radius if g n then circle 350 n 50 30 radius next radius next n for n 1 to 7 color black if a n then text 43 n 50 20 a 1 n if b n then text 93 n 50 20 b 1 n if c n then text 143 n 50 20 c 1 n if d n then text 193 n 50 20 d 1 n if e n then text 243 n 50 20 e 1 n if f n then text 293 n 50 20 f 1 n if g n then text 343 n 50 20 g 1 n next n return humanplay p 0 p clickclear do if clickx 30 and clicky 60 and clickx clicky 470 then if clickx 370 then p g if clickx 320 then p f if clickx 270 then p e if clickx 220 then p d if clickx 170 then p c if clickx 120 then p b if clickx 70 then p a row floor clicky 55 50 if p a then p a row if p b then p b row if p c then p c row if p d then p d row if p e then p e row if p f then p f row if p g then p g row if p a then a a p if p b then b b p if p c then c c p if p d then d d p if p e then e e p if p f then f f p if p g then g g p end if pause 1 until p 0 return posted by m s at 12 39 pm no comments sunday october 13 2013 n body simulation this is a n body simulation use arrow keys to keep it centered number of inital particles graphsize 600 600 fastgraphics n 100 dim x n 1 dim y n 1 dim xspeed n 1 dim yspeed n 1 dim xac n 1 dim yac n 1 dim mass n 1 dim radius n 1 initializing variables for p 1 to n a rand 2 pi r rand 300 x p r cos a 300 y p r sin a 300 s rand 2 pi 20 xspeed p cos a s cos a yspeed p sin a s sin a radius p 3 mass p radius p 3 next p gravity 0 dist 0 colision 0 dx 0 dy 0 v 0 h 0 loop arrow keys a key if 16777234 a then h h 5 if 16777236 a then h h 5 if 16777237 a then v v 5 if 16777235 a then v v 5 for u 1 to n for t 1 to n if u t and mass t 0 and mass u 0 then dx x u x t dy y u y t dist dx 2 dy 2 1 2 collide false if dist radius u radius t then collide true gravity code if collide true then x u x u mass u x t mass t mass u mass t y u y u mass u y t mass t mass u mass t xspeed u xspeed u mass u xspeed t mass t mass u mass t yspeed u yspeed u mass u yspeed t mass t mass u mass t mass u mass u mass t radius u mass u 1 3 mass t 0 radius t 0 end if colision code if collide false then gravity mass t mass u dist 2 xac u gravity dx 1000 mass u yac u gravity dy 1000 mass u xspeed u xspeed u xac u yspeed u yspeed u yac u x u x u xspeed u y u y u yspeed u end if end if next t color white circle x u h y u v radius u next u refresh clg color black rect 0 0 600 600 goto loop posted by m s at 3 27 am no comments wednesday october 9 2013 solid of revolution this program calculates the volume of a revolution solid the parameters are hardcoded but they are highlighted for you to change clg font arial 15 100 graphsize 500 500 fastgraphics graph area xmin 6 xmax 6 ymin 5 ymax 5 tx 500 xmax xmin ty 500 ymax ymin area 0 x boudaries bound1 3 bound2 3 range bound2 bound1 dx 02 volume_solid 0 for s 0 to 2 pi step 1 if s pi then for y ymin to ymax for x xmin to xmax color black circle tx x xmin tx ty y ymin ty 3 if y ymax ymin then text tx x xmin tx 15 ty y ymin ty x if x 0 then text tx x xmin tx 15 ty y ymin ty y ymax ymin next x next y line xmin tx 0 xmin tx 500 line 0 500 ymin ty 500 500 ymin ty end if for x xmin to xmax step dx xg tx x xmin tx color red y0 y equation y sin x 2 yg1 500 ty y ty ymin circle xg yg1 1 solid if x bound2 and x bound1 then fill 100 sin s 100 color rgb 200 fill 200 fill fill arc xg 05 y ty 2 yg1 1 y ty 2 y ty 2 s 1 if s 0 then volume_solid volume_solid dx y0 2 y 2 2 pi area if s pi then color green if int xg 1 2 int xg 2 1 then line xg yg1 xg 500 ymin ty fill 255 x bound1 range end if end if next x refresh if s 0 then pause 5 pause 02 next s input press any key k text 20 20 volume volume_solid refresh posted by m s at 8 35 am no comments tuesday october 8 2013 definite integral this program calculates the area between two functions the parameters functions boundaries are hardcoded but they are highlighted for you to change font arial 15 100 graphsize 500 500 fastgraphics choose the dimentions of the graph xmin 5 xmax 5 ymin 5 ymax 5 y1 0 y2 0 tx 500 xmax xmin ty 500 ymax ymin for y ymin to ymax for x xmin to xmax circle tx x xmin tx ty y ymin ty 3 if y ymax ymin then text tx x xmin tx 15 ty y ymin ty x if x 0 then text tx x xmin tx 15 ty y ymin ty y ymax ymin next x next y line xmin tx 0 xmin tx 500 line 0 500 ymin ty 500 500 ymin ty rem generate area choose the x boundaries bound1 2 bound2 2 area 0 range bound2 bound1 dx 01 for x xmin to xmax step dx xg tx x xmin tx color red p1 y1 equation1 red y1 x 2 yg1 500 ty y1 ty ymin circle xg yg1 1 color blue p2 y2 equation2 blue y2 x 2 yg2 500 ty y2 ty ymin circle xg yg2 1 if x bound2 and x bound1 then color darkgreen area area y1 p1 2 y2 p2 2 dx if int xg 1 2 int xg 2 1 then line xg yg1 xg yg2 fill 255 x bound1 range end if next x refresh input press a key a text 20 20 area area refresh posted by m s at 11 33 am no comments thursday september 26 2013 rock paper scissors this is a simulation of a system based on the popular game rock paper scissors clg n 80 radius 8 graphsize 600 600 font arial 10 100 outputvisible false fastgraphics dim type n dim xpos n dim ypos n dim xspeed n dim yspeed n dim type n initial values for u 0 to n 1 a rand xpos u rand 600 ypos u rand 400 xspeed u sin a yspeed u cos a type u int rand 3 next u c 0 color black rect 0 410 600 190 loop for u 0 to n 2 for v u 1 to n 1 distx xpos u xpos v 2 disty ypos u ypos v 2 dist distx disty 0 5 if dist 2 radius then gosub colision next v next u s 0 r 0 p 0 c c 1 if c 600 then c 0 color black rect 0 410 600 190 endif for u 0 to n 1 xpos u xpos u xspeed u ypos u ypos u yspeed u if xpos u 0 then xspeed u rand 10 1 05 xspeed u if ypos u 0 then yspeed u rand 10 1 05 yspeed u if xpos u 600 then xspeed u rand 10 1 05 xspeed u if ypos u 400 then yspeed u rand 10 1 05 yspeed u drawing objects if type u 0 then color red circle xpos u ypos u radius color black text xpos u 5 ypos u 5 s s s 1 end if if type u 1 then color green circle xpos u ypos u radius color black text xpos u 5 ypos u 5 r r r 1 end if if type u 2 then color yellow circle xpos u ypos u radius color black text xpos u 5 ypos u 5 p p p 1 end if next u color red circle c 600 180 n s 1 color green circle c 600 180 n r 1 color yellow circle c 600 180 n p 1 refresh color white rect 0 0 600 410 goto loop colision if type u 0 and type v 1 then type u 1 if type v 0 and type u 1 then type v 1 if type u 1 and type v 2 then type u 2 if type v 1 and type u 2 then type v 2 if type u 2 and type v 0 then type u 0 if type v 2 and type u 0 then type v 0 return posted by m s at 7 45 am no co...