R function_example1

다음은 고등학교 2학년 수학, 점화식 단원에서 쉽게 볼 수 있는 문제이다. 이 문제는 아래 solution과 같이 점화식의 양변을 모두 역수로 하여 치환하면 기본점화식 형태가 되므로, 어렵지 않게 해법을 발견할 수 있다.

 

 

위에 제시한 수열의 점화식을 R의 함수로 나타내 보았다. return()을 통해 결과 값을 반환하고 있다. C에서와 비슷한 모양이다.

> f <- function(n){
+     if(n==1){
+         return(1)
+     } else {
+         return( f(n-1)/(2*f(n-1)+3) )
+     }
+ }
> f(1)
[1] 1
> f(2)
[1] 0.2
> f(3)
[1] 0.05882353