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-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Golden-ratio-Convergence/R/golden-ratio-convergence.r Normal file
View file

@ -0,0 +1,8 @@
phi <- c(1, 1+1/1)
while (abs(phi[length(phi)]-phi[length(phi)-1])>10**-5){
phi <- c(phi, 1+1/phi[length(phi)])
}
print(paste("Result : ", phi[length(phi)], " after ", length(phi)-1 , "iterations."))
print(paste("Error is approximately : ", phi[length(phi)]-(1+sqrt(5))/2 ))