{"image_url":null,"categories":["\u5e7e\u4f55\u5b66","\u66f2\u7dda","\u4e09\u89d2\u95a2\u6570","\u7a4d\u5206"],"published":"2013-08-12 05:58:33","type":"rich","version":"1.0","author_url":"https://blog.hatena.ne.jp/ryamada/","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20130812%2F1376168313\" title=\"\u30b5\u30a4\u30f3\u30ab\u30fc\u30d6\u306e\u9577\u3055 - ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\u5b66\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","width":"100%","blog_url":"https://ryamada.hatenadiary.jp/","blog_title":"ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\u5b66\u30e1\u30e2","title":"\u30b5\u30a4\u30f3\u30ab\u30fc\u30d6\u306e\u9577\u3055","provider_name":"Hatena Blog","author_name":"ryamada","url":"https://ryamada.hatenadiary.jp/entry/20130812/1376168313","description":"\u53c2\u8003\u8a18\u4e8b 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\u2026"}