Message Boards Message Boards

Oloid under ConvexHullMesh

Posted 6 years ago
POSTED BY: Udo Krause
5 Replies

It is difficult to figure out what is belng claimed here (as ever, images of code do not equate to actual usable code). In[7] appears to use a form that was not defined (has only two arguments instead of the expected three). When I run the Animate that is given as actual code, it has no issue that I can see. That variant of course invokes schatzOloid with three arguments though.

POSTED BY: Daniel Lichtblau
Posted 6 years ago
POSTED BY: Greg Hurst

schatzOloid is not an image of code, but anyway: find please in the appendix the notebook and the system Information about the machine to your comfort; Run the Animate commands each at least for a minute - just click the arrows and observe - with schatzOloid0 (2 Parameters, former schatzOloid) as well as with schatzOloid ( now 3 Parameters) - both loose seemingly the definition (in the original post the penultimate picture) and showing by chance the message about the beep, which is not in the notebook, but in the original post (last picture), because that's to my knowledge the only way to present it.

Attachments:
POSTED BY: Udo Krause

Okay, thank you; take your version as schatzOloid1; interestingly it runs under Animate (after the animation arrows have been clicked, of course (just for the logs))

Animate[schatzOloid1[23, \[Phi], \[Omega]], {\[Phi],   0, \[Pi]}, {\[Omega], 0, \[Pi]}, AnimationRunning -> False]

longer - for about 3 minutes - but then again Mathematica looses the definition.

POSTED BY: Udo Krause

I ran the following from the notebook.

Remove[schatzOloid0]
schatzOloid0[\[Delta]_Integer, \[Omega]_?NumericQ] := 
 Block[{px = 
     Table[{0, Cos[o], 1 + Sin[o]}, {o, 0, 
       2 \[Pi] - \[Pi]/Mod[\[Delta], 100, 1], 
       N[\[Pi]/Mod[\[Delta], 100, 1]]}],
    py = Table[{Cos[o], 0, Sin[o]}, {o, 0, 
       2 \[Pi] - \[Pi]/Mod[\[Delta], 100, 1], \[Pi]/
        Mod[\[Delta], 100, 1]}], 
    m = {{1, 0, 0}, {0, Cos[\[Omega]], -Sin[\[Omega]]}, {0, 
       Sin[\[Omega]], Cos[\[Omega]]}}, x},
   x = Join[px, Dot[m, #] & /@ py];
   ConvexHullMesh[x,
    PlotTheme -> "SmoothShading", Boxed -> True, Axes -> True, 
    AxesLabel -> {"X", "Y", "Z"}, Ticks -> None
    ]
   ] /; \[Delta] > 2

Animate[schatzOloid0[37, \[Omega]], {\[Omega], 0, \[Pi]}, 
 AnimationRunning -> False]

I then hit the play button and let it go for a couple of minutes. This is in version 11.2, running under Linux. I did not notice it stop and did not get an error message window. During this time I twice reevaluated the definition cell and also stopped/restarted the animation. Assuming I ran this as you expected, I do not know if it is platform dependent issue or if something else weird is going on (this remark is only with reference to the Animate issue, not the other one noted regarding parameters that are zero).

POSTED BY: Daniel Lichtblau
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract