Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: _vince on July 23, 2018, 07:12:33 pm

Title: interesting plot
Post by: _vince on July 23, 2018, 07:12:33 pm
Code: QB64: [Select]
  1. deflng a-z
  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
  16.  
  17.  
Title: Re: interesting plot
Post by: johnno56 on July 23, 2018, 08:26:08 pm
Looks familiar... I think I saw this one on an old sdlbasic website... None the less, still impressive... Well done!

J
Title: Re: interesting plot
Post by: Ashish on July 24, 2018, 12:11:36 pm
Cool! Looks like a broken wooden bridge!
Title: Re: interesting plot
Post by: bplus on July 24, 2018, 12:18:12 pm
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
Title: Re: interesting plot
Post by: FellippeHeitor on July 24, 2018, 04:31:09 pm
Interesting indeed, v.
Title: Re: interesting plot
Post by: TempodiBasic on July 29, 2018, 07:26:43 pm
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
  3. A = 480: L = 640
  4. R = 255: G = 0: B = 0
  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
  62.  
Thanks to show and to share.

PS if you don't want copy paste you can download file here
Title: Re: interesting plot
Post by: johnno56 on July 29, 2018, 08:14:12 pm
Ah. Technicolor... Cool.
Text Only | Text with Attachments