aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Task/Feigenbaum-constant-calculation/PascalABC.NET/feigenbaum-constant-calculation.pas Normal file
View file

@ -0,0 +1,27 @@
##
var maxIt := 13;
var maxItJ := 10;
var a1 := 1.0;
var a2 := 0.0;
var d1 := 3.2;
println(' i d');
for var i := 2 to maxIt do
begin
var a := a1 + (a1 - a2) / d1;
for var j := 1 To maxItJ do
begin
var x := 0.0;
var y := 0.0;
for var k := 1 To 1 shl i do
begin
y := 1.0 - 2.0 * y * x;
x := a - x * x;
end;
a -= x / y;
end;
var d := (a1 - a2) / (a - a1);
writeln(i:2, d:14:10);
d1 := d;
a2 := a1;
a1 := a;
end;