方程式　√(x^2+y^2)/10 + √((x-100)^2+y^2)/5 = 50をWolfram先生に解いてもらって
y=f(x)の形にして、積分して面積を求めると

> integrate(y,-100,700/3)$value*2
[1] 83693.05

１億回モンテカルロシミュレーション結果は
> k=1e8 ; mean(replicate(k,gc(runif(2,-Gas*FE1,Gas*FE1))))*(2*Gas*FE1)^2
[1] 83691.74