{"blog_title":"ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\u5b66\u30e1\u30e2","provider_name":"Hatena Blog","author_name":"ryamada","url":"https://ryamada.hatenadiary.jp/entry/20131008/1381180867","height":"190","version":"1.0","categories":["\u5e73\u5747","\u4e00\u822c\u5316\u5e73\u5747","\u8907\u7d20\u6570"],"image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada/20131008/20131008062040.png","description":"\u8ca0\u306e\u6570\u306e\u5e73\u65b9\u6839\u306a\u3069\u3082\u53d6\u308a\u305f\u3044\u306e\u3067\u8907\u7d20\u6570\u3067\u8003\u3048\u308b # \u8907\u7d20\u6570\u306b\u3082\u5bfe\u5fdc\u3057\u3066\u3044\u308b my.mean <- function(x,p){ (sum(x^p)/length(x))^(1/p) } # \u5b9f\u6570\u5217\u306f\u8907\u7d20\u6570\u5217\u306b\u76f4\u3059 x <- rnorm(1000,0,1) x <- complex(real=x,imaginary=rep(0,length(x))) ps <- seq(from=-10,to=10,length=1000) y <- rep(0,length(ps)) for(i in 1:length(y)){ y[i] <- my.mean(x,ps[i]) } # \u8907\u7d20\u5e73\u9762\u4e0a\u306b\u6253\u70b9 pl\u2026","author_url":"https://blog.hatena.ne.jp/ryamada/","provider_url":"https://hatena.blog","type":"rich","width":"100%","published":"2013-10-08 06:21:07","title":"\u4e00\u822c\u5316\u5e73\u5747","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20131008%2F1381180867\" title=\"\u4e00\u822c\u5316\u5e73\u5747 - 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>","blog_url":"https://ryamada.hatenadiary.jp/"}