プログラムが動かない

Question

プログラムを書いています

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・

該当のソースコード

y<-1000
p<-c(y)
q<-c(y)
x<-c(y)
x[2]<-(p[1]+q[1])/2
kduf<-function(x)x^2+x
while(y<1000){
x[y+1]<-(p[y]+q[y])/5
p[y+1]<-p[y]
}
y<-y+1
}

試したこと

yの値を小さくして実行を試みた

補足情報（FW/ツールのバージョンなど）

Answer 1

i が 10000 のままなので while ループが一度も実行されません。

i<-10000

a<-c(i)
b<-c(i)
x<-c(i)  # 数列a[i],b[i],x[i]をベクトルとして扱う
a[1]<-a
b[1]<-b
x[2]<-(a[1]+b[1])/2  # xの初期値
f <- function(x) x^3+6*x^2+21*x+32  # 関数を定義

while(i<10000){

Comments

[famikun]

気づきませんでした...ありがとうございます！