- 692 名前：１３２人目の素数さん mailto:sage [2024/08/04(日) 14:47:35.12 ID:3N2oVMoX.net]
- >>653
直交座標で陰関数表示できているのでMonteCarlo法での近似は容易。
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= x1=y1=2^(2/3);
In[2]:= d=0.001;
In[3]:= pts=Partition[Flatten@Table[{x,y},{x,0,x1,d},{y,0,y1,d}],2];
In[4]:= xy=Select[pts,#[[1]]^3+#[[2]]^3 <= 3 #[[1]] #[[2]]&];
In[5]:= Mean[xy]
Out[5]= {0.806146, 0.806146}
Rでの数値積分での値と近似しているので正しい値なのだろう。
東大卒やエリート高校生による厳密解の算出を希望します。
