やっと平和になった。
そう言えば、きのうは広島で平和祈念式だったな。
0050132人目の素数さん2018/08/09(木) 14:12:16.14ID:DUTF3h+v
雨だね。
0054132人目の素数さん2018/08/11(土) 05:48:14.60ID:OvqaCq6H
>イナ
こいつには証明という概念はないの?
五角形の中心と各頂点を結ぶ放射状の線だと題意をみたさないのか?
0062132人目の素数さん2018/08/15(水) 21:30:30.90ID:eFYm1A33
左右非対称解とは結局何だったのか
そこじゃないんだよなぁ。
それでいいん?君の数学はそのレベルで終わりでいいん?
0073132人目の素数さん2018/08/16(木) 19:49:59.26ID:508YkaXu
>>71
最小解があると言うなら、その解を図示するか、または座標を示してみないかい? 0075132人目の素数さん2018/08/16(木) 20:56:43.85ID:508YkaXu
0076132人目の素数さん2018/08/16(木) 21:06:24.90ID:NCnvn0cf
なんの意味もないスレ
0077高添沼田の親父「糞関東連合テメエらまとめてぶち殺すっ!!」2018/08/16(木) 21:15:48.20ID:dZ5ratnn
高添沼田(葛飾区青戸6−23−21ハイツニュー青戸103号室)の挑発
高添沼田の親父「関東連合文句があったらいつでも孫を金属バットで殴り殺しに来やがれっ!! 関東連合の糞野郎どもは俺様がぶちのめしてやるぜっ!! 賞金をやるからいつでもかかって来いっ!!糞バエ関東連合どもっ!! 待ってるぜっ!!」 (挑戦状)
0079132人目の素数さん2018/08/17(金) 09:58:33.93ID:mWFnumrr
>>78
この試行はやってみたことある
まずランダムに3点をとって、その3点でできる三角形の短い方から2辺と、元の正五角形の各頂点から、3点のうち最も近い点とを結んでそれら7本の長さを合計する
それから3点を少しずつ動かして極小解を探していく
結果はカブトガニ型に収束するか、4より大きな解になるか、または収束しない
シミュレーションだから最適化できているかは不明だが、カブトガニ解より小さな解はこれまで見つかっていない お墓参りに来ますた。南無阿弥陀仏。
(まだ生きていたとは…)
# 各頂点から最も近い分岐点を選んで結ぶモデル
rm(list=ls()) ; graphics.off()
# draw n-polygon
ngon <- function(n,print=TRUE,digit=TRUE,axis=FALSE,cex=1,...){
r=exp(2*pi/n*1i)
p=complex(n)
for(i in 1:(n+1)) p[i]= (1-r^i)/(1-r)
if(print){
plot(p,bty='l',type='l',axes=axis, ann=FALSE,asp=1,...)
points(1/(1-r),pch='.')
if(digit) text(Re(p),Im(p),paste('p',1:n),cex=cex)
if(axis){axis(1) ; axis(2)}}
invisible(p) # return vertex complex
}
# draw segment of complex a to complex b
seg <- function(a,b,...){
segments(Re(a),Im(a),Re(b),Im(b),col=2,...)
}
# draw text y at complex x
pt <- function(x,y=NULL,...){
text(Re(x),Im(x), ifelse(is.null(y),'+',y), ...)
}
シャボン液を使ったら膜が動いて極小を示せるか?
最小の証明にはならんが