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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Pathological-floating-point-problems/Mathematica/pathological-floating-point-problems-1.math Normal file
View file

@ -0,0 +1,4 @@
v[1] = 2;
v[2] = -4;
v[n_] := Once[111 - 1130/v[n - 1] + 3000/(v[n - 1]*v[n - 2])]
N[Map[v, {3, 4, 5, 6, 7, 8, 20, 30, 50, 100}], 80]

1
Task/Pathological-floating-point-problems/Mathematica/pathological-floating-point-problems-2.math Normal file
View file

@ -0,0 +1 @@
year = 1; N[Nest[# year++ - 1 &, E - 1, 25], 30]

2
Task/Pathological-floating-point-problems/Mathematica/pathological-floating-point-problems-3.math Normal file
View file

@ -0,0 +1,2 @@
f[a_, b_] := 333.75`100 b^6 + a^2 (11 a^2 b^2 - b^6 - 121 b^4 - 2) + 5.5`100 b^8 + a/(2 b)
f[77617, 33096]