- 18 名前：１３２人目の素数さん mailto:sage [2019/11/05(火) 22:34:37 ID:yjkCI+hb.net]
- >>11
ハズレ
答えは有理数値になります。
下がメッシュ法で力業で近似値出す方法。
実行すれば答の近似値でます。
理論値と合ってます。
Prelude> let {a=4;b=3;c=(sqrt$a^2-b^2)}
Prelude> let isIn x y = (x^2/a^2) +(y^2/b^2)<1
Prelude> d x y = sqrt $ (x-c)^2 + y^2
Prelude> let ds = [d x y | x<-[-a,(-a+0.01)..a],y<-[-b,(-b+0.01)..b], isIn x y] in (sum ds)/(fromIntegral $ length ds)
