非線形連立方程式を解きたい こちらの中のこちらのPDFを参考にして まず二分法で を解いてみる f <- function(x){ sin(x)-1/2 } d<-1e-15 xl<-0 xr<-pi/2 xm<-(xl+xr)/2 while(abs(f(xm))>d){ if(f(xl)*f(xm)>0){ xl<-xm }else if(f(xl)*f(xm)<0){ xr<-xm } …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。