Chaos game: Difference between revisions

<syntaxhighlight lang=asm> cpu 8086

<syntaxhighlight lang=Action!>PROC Main()

<syntaxhighlight lang=Amazing Hopper>

<syntaxhighlight lang=basic>10 SCREEN 1

<syntaxhighlight lang=basic>10 HGR2

<syntaxhighlight lang=BASIC256>

<syntaxhighlight lang=locobasic>10 mode 1:randomize time:defint a-z

<syntaxhighlight lang=basic> 10 LET X=RND*46

<syntaxhighlight lang=basic> 10 LET x=RND*200

<syntaxhighlight lang=C>

<syntaxhighlight lang=csharp>using System.Diagnostics;

<syntaxhighlight lang=cpp>

<syntaxhighlight lang=lisp>(defpackage #:chaos

<syntaxhighlight lang=Delphi>

<syntaxhighlight lang=text>color 900

<syntaxhighlight lang=lisp>; Chaos game

<syntaxhighlight lang=fsharp>

=={{header|Fortran}}==

This FORTRAN code creates an output file which can be drawn with gnuplot.

<syntaxhighlight lang=Fortran>

PROGRAM CHAOS

IMPLICIT NONE

REAL, DIMENSION(3):: KA, KN ! Koordinates old/new

REAL, DIMENSION(3):: DA, DB, DC ! Triangle

INTEGER:: I, Z

INTEGER, PARAMETER:: UT = 17

! Define corners of triangle

DA = (/ 0., 0., 0. /)

DB = (/ 600., 0., 0. /)

DC = (/ 500., 0., 400. /)

! Define starting point

KA = (/ 500., 0., 100. /)

OPEN (UNIT = UT, FILE = 'aus.csv')

DO I=1, 1000000

Z = ZAHL()

WRITE (UT, '(3(F12.6, ";"))') KA

SELECT CASE (Z)

CASE (1)

CALL MITTELP(KA, DA, KN)

CASE (2)

CALL MITTELP(KA, DB, KN)

CASE (3)

CALL MITTELP(KA, DC, KN)

END SELECT

KA = KN

END DO

CLOSE (UT)

CONTAINS

! Calculates center of two points

SUBROUTINE MITTELP(P1, P2, MP)

REAL, INTENT(IN), DIMENSION(3):: P1, P2

REAL, INTENT(OUT), DIMENSION(3):: MP

MP = (P1 + P2) / 2.

END SUBROUTINE MITTELP

! Returns random number

INTEGER FUNCTION ZAHL()

REAL:: ZZ

CALL RANDOM_NUMBER(ZZ)

ZZ = ZZ * 3.

ZAHL = FLOOR(ZZ) + 1

IF (ZAHL .GT. 3) ZAHL = 3

END FUNCTION ZAHL

END PROGRAM CHAOS

</syntaxhighlight>

Gnuplot Code to draw file:

<syntaxhighlight lang=Gnuplot>

set terminal jpeg enhanced size 1600,960

set output 'chaos.jpg'

set nokey

set style line 1 lc rgb '#0060ad' lt 1 lw 3 pt 7 ps 0.3

plot 'aus.csv' using 1:3 with points ls 1 notitle

</syntaxhighlight>

=={{header|FreeBASIC}}==

{{trans|BASIC256}}

<syntaxhighlight lang=freebasic>

' Chaos game

Const ancho = 320, alto = 240

Dim As Integer x, y, iteracion, vertice

x = Int(Rnd * ancho)

y = Int(Rnd * alto)

Screenres ancho, alto, 8

Cls

For iteracion = 1 To 30000

vertice = Int(Rnd * 3) + 1

Select Case vertice

Case 1

x = x / 2

y = y / 2

vertice = 4 'red

Case 2

x = (ancho/2) + ((ancho/2)-x) / 2

y = alto - (alto-y) / 2

vertice = 2 'green

Case 3

x = ancho - (ancho-x) / 2

y = y / 2

vertice = 1 'blue

End Select

Pset (x,y),vertice

Next iteracion

Sleep

End

</syntaxhighlight>

=={{header|Fōrmulæ}}==

Fōrmulæ programs are not textual, visualization/edition of programs is done showing/manipulating structures but not text. Moreover, there can be multiple visual representations of the same program. Even though it is possible to have textual representation &mdash;i.e. XML, JSON&mdash; they are intended for storage and transfer purposes more than visualization and edition.

Programs in Fōrmulæ are created/edited online in its [https://formulae.org website], However they run on execution servers. By default remote servers are used, but they are limited in memory and processing power, since they are intended for demonstration and casual use. A local server can be downloaded and installed, it has no limitations (it runs in your own computer). Because of that, example programs can be fully visualized and edited, but some of them will not run if they require a moderate or heavy computation/memory resources, and no local server is being used.

In '''[https://formulae.org/?example=Chaos_game this]''' page you can see the program(s) related to this task and their results.

<syntaxhighlight lang=forth>#! /usr/bin/gforth

<syntaxhighlight lang=GML>offset = 32; //Distance from triangle vertices to edges of window

<syntaxhighlight lang=GML>if(step and step_count < max_iterations) //Wait for alarm to finish, or stop completely

<syntaxhighlight lang=GML>if(step_count < max_iterations)

<syntaxhighlight lang=GML>step = true;

<syntaxhighlight lang=GML>draw_circle(x, y, 5, false);</syntaxhighlight>

<syntaxhighlight lang=gnuplot>

<syntaxhighlight lang=Go>package main

<syntaxhighlight lang=Groovy>import javafx.animation.AnimationTimer

<syntaxhighlight lang=haskell>import Control.Monad (replicateM)

<syntaxhighlight lang=haskell>-- the Sierpinsky`s triangle

<syntaxhighlight lang=haskell>import Control.Monad.Random (getRandomR)

<syntaxhighlight lang=j>

<syntaxhighlight lang=java>import java.awt.*;

<syntaxhighlight lang=javascript><html>

<syntaxhighlight lang=julia>using Luxor

<syntaxhighlight lang=scala>//Version 1.1.51

<syntaxhighlight lang=logo>to chaosgame :sidelength :iterations

<syntaxhighlight lang=Lua>

<syntaxhighlight lang=maple>chaosGame := proc(numPoints)

<syntaxhighlight lang=Mathematica>points = 5000;

<syntaxhighlight lang=nim>import random

<syntaxhighlight lang=nim>## needs sdl2 ("nimble install sdl2")

<syntaxhighlight lang=Nim>import math

<syntaxhighlight lang=parigp>

<syntaxhighlight lang=Pascal>

<syntaxhighlight lang=perl>use Imager;

<!--<syntaxhighlight lang=Phix>(phixonline)-->

<syntaxhighlight lang=plainenglish>To run:

<syntaxhighlight lang=java>size(300, 260);

<syntaxhighlight lang=python>from __future__ import division

<syntaxhighlight lang=Python>

<syntaxhighlight lang=r>

<syntaxhighlight lang=r>

<syntaxhighlight lang=racket>#lang racket

<syntaxhighlight lang=raku line>use Image::PNG::Portable;

<syntaxhighlight lang=rexx>/*REXX pgm draws a Sierpinski triangle by running the chaos game with a million points*/

<syntaxhighlight lang=ring>

<syntaxhighlight lang=runbasic>x = int(rnd(0) * 200)

<syntaxhighlight lang=rust>

<syntaxhighlight lang=Scala>import javax.swing._

<syntaxhighlight lang=text>//Input

<syntaxhighlight lang=ruby>require('Imager')

<syntaxhighlight lang=simula>BEGIN

<syntaxhighlight lang=ecmascript>import "dome" for Window

<syntaxhighlight lang=asm> 1 ;Assemble with: tasm, tlink /t

<syntaxhighlight lang=XPL0>int Tx, Ty, X, Y, R;

<syntaxhighlight lang=Yabasic>width = 640 : height = 480

<syntaxhighlight lang=z80>VREG: equ 99h ; VDP register port

<syntaxhighlight lang=zkl>w,h:=640,640;