[過去ログ]
面白い問題おしえて〜な 28問目 (1002レス)
上
下
前
次
1-
新
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
437
: 2018/11/26(月)18:17
ID:mGDYWVbl(1/6)
AA×
>>20
>>30
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
437: [sage] 2018/11/26(月) 18:17:18.85 ID:mGDYWVbl いつもの顰蹙のプログラミング解 w8 <- function(xy,Print=FALSE){ x=xy[1];y=xy[2] if(x<0|x>20|y<0|y>30)return(Inf) tt=c(0,x,x+20,x+40,y,y+30,60) tt=sort(tt) d=diff(tt) w=sum(d^2/2)/sum(d) if(Print){ print(tt) cat(sum(d^2/2),'/',sum(d)) } return(w) } optim(par=c(0,0),w8,method='Nelder-Mead') # 最小値 > optim(par=c(0,0),w8,method='Nelder-Mead') $`par` [1] 9.999003 14.999925 $value [1] 5.833333 w8(c(10,15),P=T) > w8(c(10,15),P=T) [1] 0 10 15 30 45 50 60 350 / 60[1] 5.833333 optim(par=c(0,0),w8,method='Nelder-Mead',control=list(fnscale=-1)) # 最大値 > optim(par=c(0,0),w8,method='Nelder-Mead',control=list(fnscale=-1)) $`par` [1] 0 0 $value [1] 8.333333 w8(c(0,0),P=T) > w8(c(0,0),P=T) [1] 0 0 0 20 30 40 60 500 / 60[1] 8.333333 http://rio2016.5ch.net/test/read.cgi/math/1540739963/437
いつもののプログラミング解 最小値 最大値
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 565 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
ぬこの手
ぬこTOP
0.149s*