[過去ログ]
臨床統計もおもしろいですよ、その1 [無断転載禁止]©2ch.net (747レス)
上
下
前
次
1-
新
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
614
: 2018/08/15(水)12:17
ID:eDY+Gzxn(1/4)
AA×
画像リンク[png]:i.imgur.com
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
614: [sage] 2018/08/15(水) 12:17:01 ID:eDY+Gzxn # シオマネキ # http://i.imgur.com/uBTnujq.png H=(sqrt(5+2*sqrt(5)))/2 A=0.5+0i B=A+r shiomaneki <- function(x,y){ xy=x+y*1i (abs(xy-A)+abs(xy-B)+x)*2 + 1 } x=seq(0,Re(B),length=100) y=seq(0,H,length=100) z=outer(x,y,shiomaneki) contour(x,y,z,nlevels=20,lwd=2,bty='l') x11() ;persp(x,y,z, theta=35, lty=3,col="lightblue",xlab='x',ylab='y',zlab='z', ticktype='detailed',shade=0.75,phi=30,ltheta=-10,border=TRUE) rgl::persp3d(x,y,z,col='blue') sio <- function(xy) shiomaneki(xy[1],xy[2]) optim(c(0.4,0.4),sio,method='Nelder-Mead') http://egg.5ch.net/test/read.cgi/hosp/1493809494/614
シオマネキ
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 133 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
ぬこの手
ぬこTOP
1.056s*