面白い問題おしえて～な 28問目

面白い問題おしえて～ ..

695:１３２人目の素数さん
18/12/13 22:08:39.71 vWEXT14C.net
>>656
内包表示できる　Haskellでやってみたけど、計算が終わらない。
-- b+4rα where (θ-sinθ)/2+r^2(α-sinα)/2+(1-b)sinθ/2=pi/8 ,0<b<1,0<θ<pi/2
rangeB = map (/1000) [1..1000]
rangeTheta = map (\x -> x * pi/2/1000) [1..1000]
rangeAlpha = map (\x -> x * pi/1000) [1..1000]
rangeR = map (\x -> x * 1/1000) [1000..10000]
re = [2*b+4*r*α| b<-rangeB,θ<-rangeTheta, α<-rangeAlpha,r<-rangeR,(θ-sin(θ))/2+r^2*(α-sin(α))/2+(1-b)*sin(θ)/2==pi/8]
minimum re

次ページ

続きを表示

1を表示