高校数学の質問スレ Part437

664：卵の名無しさん (ﾜｯﾁｮｲ 2274-40h2 [2a02:6ea0:c132:0:* [上級国民]])：[sage]：2024/08/04(日) 21:40:12.47 ID:1HbuwA7g0
f[x_,y_] := (x^2+y^2-2*x)^2-1^2*(x^2+y^2);
d=0.001;
pxy=Partition[Flatten@Table[{x,y},{x,-1/8,3,d},{y,-1.8,1.8,d}],2];
xy=Select[pxy,(#[[1]]^2+#[[2]]^2-2*#[[1]])^2-1^2*(#[[1]]^2+#[[2]]^2)<=0&];
Mean[xy][[1]]

また例のスレでスレタイ読めないアホが発狂中