Post Closed as "off-topic" by m_goldberg, corey979, Sascha, Feyre, MarcoB
3 added 459 characters in body

I'm using the code

ContourPlot3D[
NumericQ[
Integrate[
Piecewise[
{{Exp[-1/(1 - x^4 - y^4)]*
Exp[I*ω*10*({Cos[ϕ], Sin[θ]} - {Cos[π/2], Sin[π/2]})],
Sqrt[x^2 + y^2] < 1},
{0, Sqrt[x^2 + y^2] >= 1}},
PerformanceGoal -> "Speed"],
{x, -2, 2}, {y, -2, 2}]],
{ϕ, 0, 2*π}, {θ, 0, 2*π}, {ω, -2, 2},
PerformanceGoal -> "Speed", MaxRecursion -> 0]


I had the parameters set higher before, namely {x,-10,10}, etc., and I didn't use the MaxRecursion nor PerformanceGoal, but after four days of running I still had no result. Even now, I have had it running for most of the day and still no result.

Is this normal? Can I speed it up?

Edit: Note that the piecewise function I'm trying to plot is:

$$\frac{e^{10i\omega}}{40\pi}\int_{-\infty}^{\infty}\int_{-\infty}^{\infty}\exp\left(-\frac{1}{1-x^{4}-y^{4}}\right)\exp\left(10i\omega\left(\begin{pmatrix} \cos\phi\\\sin\theta \end{pmatrix}-\begin{pmatrix} \cos\frac{\pi}{2}\\\sin\frac{\pi}{2} \end{pmatrix}\right)\begin{pmatrix} x\\y \end{pmatrix}\right)\,dx\,dy, \text{ if }\sqrt{x^2+y^2}<1\text{ and }0\text{ otherwise}.$$

I'm using the code

ContourPlot3D[
NumericQ[
Integrate[
Piecewise[
{{Exp[-1/(1 - x^4 - y^4)]*
Exp[I*ω*10*({Cos[ϕ], Sin[θ]} - {Cos[π/2], Sin[π/2]})],
Sqrt[x^2 + y^2] < 1},
{0, Sqrt[x^2 + y^2] >= 1}},
PerformanceGoal -> "Speed"],
{x, -2, 2}, {y, -2, 2}]],
{ϕ, 0, 2*π}, {θ, 0, 2*π}, {ω, -2, 2},
PerformanceGoal -> "Speed", MaxRecursion -> 0]


I had the parameters set higher before, namely {x,-10,10}, etc., and I didn't use the MaxRecursion nor PerformanceGoal, but after four days of running I still had no result. Even now, I have had it running for most of the day and still no result.

Is this normal? Can I speed it up?

I'm using the code

ContourPlot3D[
NumericQ[
Integrate[
Piecewise[
{{Exp[-1/(1 - x^4 - y^4)]*
Exp[I*ω*10*({Cos[ϕ], Sin[θ]} - {Cos[π/2], Sin[π/2]})],
Sqrt[x^2 + y^2] < 1},
{0, Sqrt[x^2 + y^2] >= 1}},
PerformanceGoal -> "Speed"],
{x, -2, 2}, {y, -2, 2}]],
{ϕ, 0, 2*π}, {θ, 0, 2*π}, {ω, -2, 2},
PerformanceGoal -> "Speed", MaxRecursion -> 0]


I had the parameters set higher before, namely {x,-10,10}, etc., and I didn't use the MaxRecursion nor PerformanceGoal, but after four days of running I still had no result. Even now, I have had it running for most of the day and still no result.

Is this normal? Can I speed it up?

Edit: Note that the piecewise function I'm trying to plot is:

$$\frac{e^{10i\omega}}{40\pi}\int_{-\infty}^{\infty}\int_{-\infty}^{\infty}\exp\left(-\frac{1}{1-x^{4}-y^{4}}\right)\exp\left(10i\omega\left(\begin{pmatrix} \cos\phi\\\sin\theta \end{pmatrix}-\begin{pmatrix} \cos\frac{\pi}{2}\\\sin\frac{\pi}{2} \end{pmatrix}\right)\begin{pmatrix} x\\y \end{pmatrix}\right)\,dx\,dy, \text{ if }\sqrt{x^2+y^2}<1\text{ and }0\text{ otherwise}.$$

2 Routine clean-up

# 'ContourPlot3D' ContourPlot3D doesn't even computecomplete after days of running. Can I speed it up?

I'm using the code

ContourPlot3D[
NumericQ[Integrate[  NumericQ[
Integrate[
Piecewise[
{{Exp[-1/(1 - x^4 - y^4)]*
Exp[I*\[Omega]*10*({Cos[\[Phi]],
Sin[\[Theta]]Exp[I*ω*10*({Cos[ϕ], Sin[θ]} - {Cos[\[Pi]Cos[π/2], Sin[\[Pi]Sin[π/2]})],
Sqrt[x^2 + y^2] < 1},
{0, Sqrt[x^2 + y^2] >= 1}},
PerformanceGoal -> "Speed"],
{x, -2, 2}, {y, -2, 2}]],
{\[Phi]ϕ, 0,
2*\[Pi] 2*π}, {\[Theta]θ, 0, 2*\[Pi]2*π}, {\[Omega]ω, -2, 2},
PerformanceGoal -> "Speed", MaxRecursion -> 0]


I had the parameters set higher before, namely {x,-10,10} et cetera (and, etc., and I didn't use the MaxRecursion nor PerformanceGoal, but after four days of running I still had no result. Even now, I have had it running for most of the day and still notno result.

Is this normal? Can I speed it up?

# 'ContourPlot3D' doesn't even compute after days of running. Can I speed it up?

I'm using the code

ContourPlot3D[
NumericQ[Integrate[
Piecewise[{{Exp[-1/(1 - x^4 - y^4)]*
Exp[I*\[Omega]*10*({Cos[\[Phi]],
Sin[\[Theta]]} - {Cos[\[Pi]/2], Sin[\[Pi]/2]})],
Sqrt[x^2 + y^2] < 1}, {0, Sqrt[x^2 + y^2] >= 1}},
PerformanceGoal -> "Speed"], {x, -2, 2}, {y, -2, 2}]], {\[Phi], 0,
2*\[Pi]}, {\[Theta], 0, 2*\[Pi]}, {\[Omega], -2, 2},
PerformanceGoal -> "Speed", MaxRecursion -> 0]


I had the parameters set higher before, namely {x,-10,10} et cetera (and I didn't use the MaxRecursion nor PerformanceGoal, but after four days of running I still had no result. Even now, I have had it running for most of the day and still not result.

Is this normal?

# ContourPlot3D doesn't even complete after days of running

I'm using the code

ContourPlot3D[
NumericQ[
Integrate[
Piecewise[
{{Exp[-1/(1 - x^4 - y^4)]*
Exp[I*ω*10*({Cos[ϕ], Sin[θ]} - {Cos[π/2], Sin[π/2]})],
Sqrt[x^2 + y^2] < 1},
{0, Sqrt[x^2 + y^2] >= 1}},
PerformanceGoal -> "Speed"],
{x, -2, 2}, {y, -2, 2}]],
{ϕ, 0, 2*π}, {θ, 0, 2*π}, {ω, -2, 2},
PerformanceGoal -> "Speed", MaxRecursion -> 0]


I had the parameters set higher before, namely {x,-10,10}, etc., and I didn't use the MaxRecursion nor PerformanceGoal, but after four days of running I still had no result. Even now, I have had it running for most of the day and still no result.

Is this normal? Can I speed it up?

1

# 'ContourPlot3D' doesn't even compute after days of running. Can I speed it up?

I'm using the code

ContourPlot3D[
NumericQ[Integrate[
Piecewise[{{Exp[-1/(1 - x^4 - y^4)]*
Exp[I*\[Omega]*10*({Cos[\[Phi]],
Sin[\[Theta]]} - {Cos[\[Pi]/2], Sin[\[Pi]/2]})],
Sqrt[x^2 + y^2] < 1}, {0, Sqrt[x^2 + y^2] >= 1}},
PerformanceGoal -> "Speed"], {x, -2, 2}, {y, -2, 2}]], {\[Phi], 0,
2*\[Pi]}, {\[Theta], 0, 2*\[Pi]}, {\[Omega], -2, 2},
PerformanceGoal -> "Speed", MaxRecursion -> 0]


I had the parameters set higher before, namely {x,-10,10} et cetera (and I didn't use the MaxRecursion nor PerformanceGoal, but after four days of running I still had no result. Even now, I have had it running for most of the day and still not result.

Is this normal?