Feigenbaum constant calculation: Difference between revisions

 

;Task:

{{trans|Python}}

 

V max_it_j = 10

V a1 = 1.0

d1 = d

a2 = a1

 

{{out}}

<pre>

{{works with|ALGOL 68G|Any - tested with release 2.8.3.win32}}

{{Trans|Ring}}

print( ( "Feigenbaum constant calculation:", newline ) );

a2 := a1;

a1 := a

{{out}}

<pre>

 

=={{header|AWK}}==

# syntax: GAWK -f FEIGENBAUM_CONSTANT_CALCULATION.AWK

BEGIN {

exit(0)

}

{{out}}

<pre>

13 4.66920537

</pre>

 

=={{header|C}}==

{{trans|Ring}}

 

void feigenbaum() {

feigenbaum();

return 0;

 

{{output}}

</pre>

 

{{trans|Kotlin}}

 

namespace FeigenbaumConstant {

}

}

{{out}}

<pre> i d

 

=={{header|D}}==

 

void main() {

a1 = a;

}

{{out}}

<pre> i d

12 4.66920099

13 4.66920555</pre>

 

=={{header|F#|F sharp}}==

{{trans|C#}}

 

[<EntryPoint>]

a2 <- a1

a1 <- a

{{out}}

<pre> i d

 

=={{header|Factor}}==

 

[let

exp d "%2d %.8f\n" printf

] each

{{out}}

<pre>

13 4.66920537

</pre>

 

=={{header|Fortran}}==

implicit none

 

print '(i4,f13.10)', i, d1

end do

{{out}}

<pre> i d

 

=={{header|FreeBASIC}}==

' compile with: fbc -s console

 

Print : Print "hit any key to end program"

Sleep

{{out}}

<pre>Feigenbaum constant calculation:

12 4.669201301

13 4.669198656</pre>

 

=={{header|Go}}==

{{trans|Ring}}

 

import "fmt"

func main() {

feigenbaum()

 

{{out}}

13 4.66920537

</pre>

 

=={{header|Haskell}}==

 

feigenbaumApprox :: Int -> [Double]

(show <$> feigenbaumApprox 13)

where

{{Out}}

<pre> 1 3.2185114220380866

12 4.669205372040318

13 4.669207514010413</pre>

 

=={{header|Java}}==

{{trans|Kotlin}}

public static void main(String[] args) {

int max_it = 13;

}

}

{{out}}

<pre> i d

13 4.66920537</pre>

 

 

=={{header|Julia}}==

 

function feigenbaum_delta(imax=23, jmax=20)

 

feigenbaum_delta()

<pre>

Feigenbaum's delta constant incremental calculation:

23 4.66920160910297781286849594159066394676896043144121209732784416240857379387701

</pre>

 

=={{header|Kotlin}}==

{{trans|Ring}}

 

fun feigenbaum() {

fun main(args: Array<String>) {

feigenbaum()

 

{{output}}

13 4.66920537

</pre>

 

=={{header|Lua}}==

local r = n

while p>0 do

a2 = a1

a1 = a

{{out}}

<pre> i d

12 4.66920098

13 4.66920537</pre>

 

=={{header|Modula-2}}==

FROM FormatString IMPORT FormatString;

FROM LongStr IMPORT RealToStr;

 

ReadChar

 

=={{header|Perl}}==

use warnings;

use Math::AnyNum 'sqr';

($a2, $a1) = ($a1, $a);

printf "%2d %17.14f\n", $i, $d1;

{{out}}

<pre> 2 3.21851142203809

12 4.66920131329420

13 4.66920154578091</pre>

 

=={{header|Phix}}==

{{trans|Ring}}

{{out}}

<pre>

=={{header|Python}}==

{{trans|D}}

max_it_j = 10

a1 = 1.0

d1 = d

a2 = a1

{{out}}

<pre> i d

=={{header|Racket}}==

{{trans|C}}

(define (feigenbaum #:max-it (max-it 13) #:max-it-j (max-it-j 10))

(displayln " i d" (current-error-port))

 

(module+ main

{{out}}

<pre> i d

13 4.66920537

4.669205372040318</pre>

 

=={{header|REXX}}==

{{trans|Sidef}}

parse arg digs maxi maxj . /*obtain optional argument from the CL.*/

if digs=='' | digs=="," then digs= 30 /*Not specified? Then use the default.*/

if maxJ=='' | maxJ=="," then maxJ= 10 /* " " " " " " */

#= 4.669201609102990671853203820466201617258185577475768632745651343004134330211314737138,

numeric digits digs /*use the specified # of decimal digits*/

a1= 1

say 'Using ' maxJ " iterations for maxJ, with " digs ' decimal digits:'

say

 

do i=2 for maxi-1

parse value d a1 a with d1 a2 a1 /*assign 3 variables with 3 new values.*/

end /*i*/

{{out|output|text=&nbsp; when using the default inputs:}}

<pre>

19 10 4.66920160909687888294310165196

20 12 4.66920160910169069039564432665

true value= 4.66920160910299067185320382047

</pre>

 

=={{header|Ring}}==

 

decimals(8)

a2 = a1

a1 = a

Output:

<pre>Feigenbaum constant calculation:

12 4.66920098

13 4.66920537</pre>

=={{header|Scala}}==

===Imperative, ugly===

val (max_it, max_it_j) = (13, 10)

var (a1, a2, d1, a) = (1.0, 0.0, 3.2, 0.0)

}

 

===Functional Style, Tail recursive===

{{Out}}Best seen running in your browser either by [https://scalafiddle.io/sf/OjA3sae/0 ScalaFiddle (ES aka JavaScript, non JVM)] or [https://scastie.scala-lang.org/04eS3BfCShmrA7I8ZmQfJA Scastie (remote JVM)].

private val (max_it, max_it_j) = (13, 10)

 

result.foreach { case (δ, i) => println(f"${i + 2}%2d $δ%.8f") }

 

 

=={{header|Sidef}}==

var a2 = 0

var δ = 3.2.float

(a2, a1) = (a1, a0)

printf("%2d %.8f\n", i, δ)

{{out}}

<pre>

{{trans|C}}

 

 

func feigenbaum(iterations: Int = 13) {

}

 

 

{{out}}

=={{header|Visual Basic .NET}}==

{{trans|C#}}

 

Sub Main()

End Sub

 

{{out}}

<pre> i d

12 4.66920098

13 4.66920537</pre>

 

=={{header|zkl}}==

{{trans|Kotlin}}

maxIt,maxItJ,a1,a2,d1,a,d := 13, 10, 1.0, 0.0, 3.2, 0, 0;

println(" i d");

d1,a2,a1 = d,a1,a;

}

{{out}}

<pre>