不等式 x3 <= sqrt(x1^2 + x2^2) をプロットしたいと思います。私の問題は、sqrt が主要な平方根のみを返すため、グラフの半分だけがプロットされることです。以下のコードを使用しました。
x1=x2=seq(-20,20,length=100);
x3=seq(-30,30,length=100);
df = expand.grid(x1=x1,x2=x2,x3=x3)
df$ind = with(df,x3 <= sqrt(x1^2 + x2^2) | x3 >= -sqrt(x1^2 + x2^2))
plot3d(df$x1,df$x2,df$x3,type='n')
with(df[df$ind, ], points3d(x, y, z, color = 'blue', size = 2))
しかし、期待どおりに機能していません。R^3 で 2 次コーンをプロットする必要があります。