[R 코딩 연습문제] 피타고라스 음계 구하기

Question) 

피타고라스 음계의 진동수를 구하는 수열은 아래와 같습니다. 

 

$a_{1}=1, a_{n+1}=\left\{\begin{matrix}
\frac{3}{2}a_{n} & (n \ is \ odd)\\ 
\frac{3}{4}a_{n} & (n \ is \ even)
\end{matrix}\right.$

 

변수 n에 값을 입력하면, 해당 값까지의 수열을 출력해주는 코드를 만드시오. 

 

Answer)

an=1
n=15

for (i in 2:n){
   if (i%%2 ==0) # 짝수
   {an[i]=an[i-1]*3/2}
   
    else if (i%%2 ==1) # 홀수
   {an[i]=an[i-1]*3/4}
   
}

print(an)

 

출력결과

> print(an)
 [1] 1.000000 1.500000 1.125000 1.687500 1.265625
 [6] 1.898438 1.423828 2.135742 1.601807 2.402710
[11] 1.802032 2.703049 2.027287 3.040930 2.280697