interesting plot

[_vince]

Code: QB64: [Select]

1. deflng a-z
2. dim xx as double, uu as double
3. screen 12
4. for u=0 to 640
5.         uu=2.8 + 1.2*u/640
6.         for x=0 to 480
7.                 xx = x/480
8.                 for i=0 to 500
9.                         xx = uu*xx*(1-xx)
10.                 next
11.                 pset(u,480*(1-xx))
12.         next
13. next
14. sleep
15. system
16.  
17.  

[johnno56]

Looks familiar... I think I saw this one on an old sdlbasic website... None the less, still impressive... Well done!

J

[Ashish]

Cool! Looks like a broken wooden bridge!

[bplus]

Looks to me like something from chaos theory back in the day when it was faddish.

Here it is!
https://science.howstuffworks.com/math-concepts/chaos-theory6.htm

[FellippeHeitor]

Interesting indeed, v.

[TempodiBasic]

Hi Vincent
fine and interesting math effect...
I'm curious and so I have expanded the experience to different height and width of screen image and using different colors to show better to my tired/jaded eyes the plot effect.

Code: QB64: [Select]

1. DEFLNG A-Z
2. DIM xx AS DOUBLE, uu AS DOUBLE
3. A = 480: L = 640
4. R = 255: G = 0: B = 0
5. RANDOMIZE TIMER
6. DO
7.     SCREEN _NEWIMAGE(L, A, 32)
8.  
9.     FOR u = 0 TO L
10.         uu = 2.8 + 1.2 * u / L
11.         FOR x = 0 TO A
12.             xx = x / A
13.             FOR i = 0 TO 500
14.                 xx = uu * xx * (1 - xx)
15.             NEXT
16.             PSET (u, A * (1 - xx)), _RGB(RND * R, RND * G, RND * B)
17.         NEXT
18.     NEXT
19.     LOCATE 1, 1: PRINT "PRESS C FOR COLOR, SPACE FOR HEIGHT, ENTER FOR WIDTH"
20.     DO
21.         T = _KEYHIT
22.     LOOP UNTIL T
23.     IF T = 27 THEN END
24.     IF T = 32 THEN
25.         SELECT CASE A
26.             CASE 320
27.                 A = 480
28.             CASE 480
29.                 A = 600
30.             CASE 600
31.                 A = 320
32.         END SELECT
33.     END IF
34.     IF T = 13 THEN
35.         SELECT CASE L
36.             CASE 320
37.                 L = 640
38.             CASE 640
39.                 L = 800
40.             CASE 800
41.                 L = 320
42.         END SELECT
43.     END IF
44.     IF T = 99 OR T = 67 THEN
45.         IF (R = 255 AND B = 0 AND G = 0) THEN
46.             R = 0
47.             B = 255
48.             G = 0
49.  
50.         ELSEIF (R = 0 AND B = 255 AND G = 0) THEN
51.             R = 0
52.             B = 0
53.             G = 255
54.  
55.         ELSEIF (R = 0 AND B = 0 AND G = 255) THEN
56.             R = 255
57.             B = 0
58.             G = 0
59.         END IF
60.     END IF
61. LOOP
62.  

Thanks to show and to share.

PS if you don't want copy paste you can download file here

[johnno56]

Ah. Technicolor... Cool.