Message Boards

WOLFRAM COMMUNITY

2921 Views

4 Replies

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Plot functions and points at the same 3D plot?

Rodrigo Olmedo

Rodrigo Olmedo, CONSUMERTEC

Posted 8 years ago

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.

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.

POSTED BY: Rodrigo Olmedo

4 Replies

Sort By:

Rodrigo Olmedo

Rodrigo Olmedo, CONSUMERTEC

Posted 8 years ago

Dear Moderation Team, Thank you for your recommendations. Rodrigo

POSTED BY: Rodrigo Olmedo

EDITORIAL BOARD

EDITORIAL BOARD, WOLFRAM COMMUNITY

Posted 8 years ago

Dear @Rodrigo Olmedo, please take a moment to read tutorial about proper code posting: http://wolfr.am/READ-1ST

POSTED BY: EDITORIAL BOARD

Rodrigo Olmedo

Rodrigo Olmedo, CONSUMERTEC

Posted 8 years ago

Hello Sander, Thank you. I have changed the code but the problem persist: f = 0 == 824.3733785446891` + (25 (16 + LL)^3)/390224 - ( 10625 (16 + LL)^3)/( 97556 ((25 (16 + LL)^3)/390224 + 94.7740978646924` (aa/500 + (16 + LL)/116)^3 + 103.41515070822` (-(bb/200) + (16 + LL)/116)^3)) - ( 75819.27829175392` (aa/500 + (16 + LL)/116)^3)/((25 (16 + LL)^3)/ 390224 + 94.7740978646924` (aa/500 + (16 + LL)/116)^3 + 103.41515070822` (-(bb/200) + (16 + LL)/116)^3) - WI; Manipulate[ ContourPlot3D[Evaluate@f, {aa, -10, 10}, {bb, -25, 0}, {LL, 80, 100}, AxesLabel -> {aa, bb, JJ}, PerformanceGoal -> "Speed"], {WI, 50, 200}]

Hello Sander, Thank you. I have changed the code but the problem persist:

f = 0 == 824.3733785446891` + (25 (16 + LL)^3)/390224 - (
    10625 (16 + LL)^3)/(
    97556 ((25 (16 + LL)^3)/390224 + 
       94.7740978646924` (aa/500 + (16 + LL)/116)^3 + 
       103.41515070822` (-(bb/200) + (16 + LL)/116)^3)) - (
    75819.27829175392` (aa/500 + (16 + LL)/116)^3)/((25 (16 + LL)^3)/
     390224 + 94.7740978646924` (aa/500 + (16 + LL)/116)^3 + 
     103.41515070822` (-(bb/200) + (16 + LL)/116)^3) - WI;
Manipulate[
 ContourPlot3D[Evaluate@f, {aa, -10, 10}, {bb, -25, 0}, {LL, 80, 100},
   AxesLabel -> {aa, bb, JJ}, PerformanceGoal -> "Speed"], {WI, 50, 
  200}]

POSTED BY: Rodrigo Olmedo