ryamada https://blog.hatena.ne.jp/ryamada/ ryamadaのコンピュータ・数学メモ https://ryamada.hatenadiary.jp/ 平均 一般化平均 複素数 負の数の平方根なども取りたいので複素数で考える # 複素数にも対応している my.mean <- function(x,p){ (sum(x^p)/length(x))^(1/p) } # 実数列は複素数列に直す 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]) } # 複素平面上に打点 pl… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20131008%2F1381180867" 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> https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada/20131008/20131008062040.png Hatena Blog https://hatena.blog 2013-10-08 06:21:07 rich https://ryamada.hatenadiary.jp/entry/20131008/1381180867 1.0 100%