5 回答

TA貢獻1942條經驗 獲得超3個贊
Q1
n <- 1:30
f <- c(1,1)
for (i in n) f <- c(f, f[length(f)-1]+f[length(f)])
for (i in 1:(length(f)-1)) print(f[i]/f[i+1])
從結果可以看到,貌似收斂到 0.618
Q2
1) answer <- c(3)
在for循環里:
#每次都從answer中取最后一項,并把計算結果存到answer中(作為最后一項);
2) j =1時: answer <- c(answer, ( 7* answer[ 1 ] ) %% 31) ==> answer = c(3, 21)
3) j =2時:answer <- c(answer, ( 7* answer[ 2 ] ) %% 31) => answer = c(3,21, 21*7%%31)
--->23<-----
4) ...
16)j=15時: answer中有16個元素;

TA貢獻1878條經驗 獲得超4個贊
updateR()
在其他目錄下安裝 R ,再將舊版本保留的 library 目錄下的文件拷貝至新版本 library 目錄下,然后update.packages() ;或卸載 R ,把 R 裝到舊的目錄下,然后 update.packages()。

TA貢獻1796條經驗 獲得超10個贊
f[1]<-f[2]<-1 和 我的f<-c(1,1) 是等價的 ,僅僅是風格不同而已; f[1] <- f[2] <- 1 可以大致表示成: 1) f <- c(0, 1) 2) f[1] <- 1 ==> f = c(1,1) f[i] <- f[i-2] + f[i-1] 的意思是第三項是第一項和第二項的和 ,和我的也是風格不同,你的代碼更符合r的風格 r語言的數組可以增長,當下標超出當前的實際長度時,數組就增長到下標長度; 所以F[i] <- F[i-2] + F[i-1]的意思是:數組F長度增長1,增長的這項的取值是前兩項的和; 我的代碼把這個過程展開了,f <- c(f, f[length(f)-1]+f[length(f)])的意思是 f重新賦值,取值是這樣一個數組,這個數組包含原來的f全部,并在最后追加一項,這一項的值是數組f的最后兩項的和;其中length(f)是取數組f的最后一項的下標,length(f)-1是倒數第二項的下標;c(數組,元素)的意思是把用數組和元素構成一個新的數組,新數組的長度是舊數組的長度+1;

TA貢獻1860條經驗 獲得超8個贊
#Q1 f = c(1,1) for(i in 2:30) { print(sprintf("i=%i, f[i-1]=%i, f[i]=%i, f[i-1]/f[i]=%.4f", i, f[i-1], f[i], f[i]/f[i-1])) f=c(f, (f[i-1]+f[i])) # sum of last two element in f } |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # Q2. 每一步都打印出值,你可以參照一下 > for ( j in 1:15) { + print(sprintf("j=%i, answer[j]=%i, 7*answer[j]=%i, 7*answer[j]%%31=%i", j, answer[j], 7*answer[j], (7*answer[j])%%31)) + answer <- c(answer, ( 7* answer[ j ] ) %% 31) + } [1] "j=1, answer[j]=3, 7*answer[j]=21, 7*answer[j]%31=21" [1] "j=2, answer[j]=21, 7*answer[j]=147, 7*answer[j]%31=23" [1] "j=3, answer[j]=23, 7*answer[j]=161, 7*answer[j]%31=6" [1] "j=4, answer[j]=6, 7*answer[j]=42, 7*answer[j]%31=11" [1] "j=5, answer[j]=11, 7*answer[j]=77, 7*answer[j]%31=15" [1] "j=6, answer[j]=15, 7*answer[j]=105, 7*answer[j]%31=12" [1] "j=7, answer[j]=12, 7*answer[j]=84, 7*answer[j]%31=22" [1] "j=8, answer[j]=22, 7*answer[j]=154, 7*answer[j]%31=30" [1] "j=9, answer[j]=30, 7*answer[j]=210, 7*answer[j]%31=24" [1] "j=10, answer[j]=24, 7*answer[j]=168, 7*answer[j]%31=13" [1] "j=11, answer[j]=13, 7*answer[j]=91, 7*answer[j]%31=29" [1] "j=12, answer[j]=29, 7*answer[j]=203, 7*answer[j]%31=17" [1] "j=13, answer[j]=17, 7*answer[j]=119, 7*answer[j]%31=26" [1] "j=14, answer[j]=26, 7*answer[j]=182, 7*answer[j]%31=27" [1] "j=15, answer[j]=27, 7*answer[j]=189, 7*answer[j]%31=3" > |
- 5 回答
- 0 關注
- 1014 瀏覽
添加回答
舉報