Re: [R] Fibonacci

2011-04-21 Thread Michael Dewey
At 10:42 20/04/2011, Georgina Imberger wrote: Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. phi - 0.5 * (1 + sqrt(5)) phi [1] 1.618034 fib - function(n) {(phi ^ n - (1 - phi) ^ n) / sqrt(5)}

Re: [R] Fibonacci

2011-04-21 Thread David Winsemius
On Apr 21, 2011, at 9:04 AM, Michael Dewey wrote: At 10:42 20/04/2011, Georgina Imberger wrote: Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. phi - 0.5 * (1 + sqrt(5)) phi [1] 1.618034 fib -

Re: [R] Fibonacci

2011-04-21 Thread Nordlund, Dan (DSHS/RDA)
-Original Message- From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- project.org] On Behalf Of David Winsemius Sent: Thursday, April 21, 2011 8:44 AM To: Michael Dewey Cc: r-help@r-project.org Subject: Re: [R] Fibonacci On Apr 21, 2011, at 9:04 AM, Michael Dewey

Re: [R] Fibonacci

2011-04-21 Thread William Dunlap
-Original Message- From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On Behalf Of Nordlund, Dan (DSHS/RDA) Sent: Thursday, April 21, 2011 9:19 AM To: r-help@r-project.org Subject: Re: [R] Fibonacci -Original Message- From: r-help-boun...@r

[R] Fibonacci

2011-04-20 Thread Georgina Imberger
Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. Fibonacci-c(1,1) while (max(Fibonacci)500){ Fibonacci-c(Fibonacci, (max(Fibonacci) + ?(Fibanacci))) } How can I tell R to take the value one before the max

Re: [R] Fibonacci

2011-04-20 Thread Erich Neuwirth
The easy solution to compute the Fibonacci numbers is fibo - function(n,a=1,b=1){ if (n == 1) return(a) if (n == 2) return(b) return(fibo(n-1,b,a+b)) } It avoids double recursion. It is, however, not as resource efficient as a loop since R does not do tail recursion elimination. On Apr

Re: [R] Fibonacci

2011-04-20 Thread Petr Savicky
On Wed, Apr 20, 2011 at 11:42:38AM +0200, Georgina Imberger wrote: Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. Fibonacci-c(1,1) while (max(Fibonacci)500){ Fibonacci-c(Fibonacci, (max(Fibonacci)

Re: [R] Fibonacci

2011-04-20 Thread Nutter, Benjamin
-project.org Subject: [R] Fibonacci Hi! I am trying to work out the code to get a Fibonacci sequence, using the while() loop and only one variable. And I can't figure it out. Fibonacci-c(1,1) while (max(Fibonacci)500){ Fibonacci-c(Fibonacci, (max(Fibonacci) + ?(Fibanacci))) } How can I tell R to take

Re: [R] Fibonacci

2011-04-20 Thread Bart Joosen
Another solution: while (Fibonacci[1] 500) Fibonacci - c(sum(Fibonacci[c(1,2)]), Fibonacci) While this adds the sum before the existing values, the length or tail function or avoided, but even with reordering, its faster (Fibonacci[length(Fibonacci):1]) Best regards Bart -- View this

[R] Fibonacci

2011-04-20 Thread Georgina Imberger
Thank-you all!! Very helpful. -- Forwarded message -- From: Bart Joosen bartjoo...@hotmail.com Date: 20 April 2011 15:46 Subject: Re: [R] Fibonacci To: r-help@r-project.org Another solution: while (Fibonacci[1] 500) Fibonacci - c(sum(Fibonacci[c(1,2)]), Fibonacci) While