高校数学の質問スレ Part437

>>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での数値積分での値と近似しているので正しい値なのだろう。

東大卒やエリート高校生による厳密解の算出を希望します。