Hello Sander Huisman, Here is my new code:
pts2 = Point[{{-5, -5, 90}, {-4, -20, 92}}];
Manipulate[
Show[ContourPlot3D[
WI == 1/390224 (3.2169027726922274`*^8 +
25 (16 +
LL)^3 - (42500 (16 +
LL)^3)/(-0.0000129268938385275` (-27.586206896551722` +
1.` bb - 1.7241379310344827` LL)^3 + (25 (16 + LL)^3)/
390224 +
7.581927829175391`*^-7 (68.96551724137932` + 1.` aa +
4.310344827586207` LL)^3) - (2.958650205212138`*^10 (aa/
500 + (16 + LL)/
116)^3)/(-0.0000129268938385275` (-27.586206896551722` +
1.` bb - 1.7241379310344827` LL)^3 + (25 (16 + LL)^3)/
390224 +
7.581927829175391`*^-7 (68.96551724137932` + 1.` aa +
4.310344827586207` LL)^3)), {aa, -10, 10}, {bb, -25,
0}, {LL, 80, 100}, AxesLabel -> {aa, bb, JJ},
PerformanceGoal -> "Speed"],
Graphics3D[{PointSize[0.02], pts2}]], {WI, 50, 200}]
How is it possible to replace the function with just a reference of the function. I have tried with a single variable and did not work. Thanks.