ryamada https://blog.hatena.ne.jp/ryamada/ ryamadaのコンピュータ・数学メモ https://ryamada.hatenadiary.jp/ 幾何学 曲線 三角関数 積分 参考記事 L.sin <- function(a,b,x0=0,x1=2*pi,N=100000){ x <- seq(from=x0,to=x1,length=N) x <- x[-N] sum(sqrt(1+a^2*b^2*cos(b*x)^2)) * (x1-x0)/(N-1) } L.sin(1,1) as <- seq(from=0,to=20,length=50) Ls <- rep(0,length(as)) for(i in 1:length(as)){ Ls[i] <- L.sin(as[i],1) } plot(as,Ls) bs <- 0:10 Ls <- rep(0,l… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20130812%2F1376168313" title="サインカーブの長さ - ryamadaのコンピュータ・数学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2013-08-12 05:58:33 rich https://ryamada.hatenadiary.jp/entry/20130812/1376168313 1.0 100%