Group Abstract

Message Boards

WOLFRAM COMMUNITY

3.8K Views

4 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Curve smoothness disappear while Animate is running

Ramiro Saldaña

Ramiro Saldaña, Tecnológico de Monterrey

Posted 3 years ago

Hello, I am trying to animate a Heart 3D surface but when I Apply the Animate Option and while it is working the shape curve disappears, I want to know why it is happening and if there is a way to solve it. Thank you. Attachments: AyCorazón.nb

POSTED BY: Ramiro Saldaña

4 Replies

Sort By:

Eric Rimbey

Posted 3 years ago

You could create your data first (a list of ContourPlot3D expressions) and then apply ListAnimate to it.

POSTED BY: Eric Rimbey

Robert Nowak

Robert Nowak, IMS Nanofabrication

Posted 3 years ago

Hi Ramiro Try PerformanceGoal -> "Quality" inside ContourPlot3D. Alternatively: t = Table[ ContourPlot3D[ x^2 + (4 + 1.2z - Abs[x]Sqrt[(20 - Abs[x])/15])^2 + (y(2 - z/15))^2 == (15 + 3 (1/2 + (1/2)Sin[2Pit0 + z/25])^4)^2, {x, -20, 20}, {y, -20, 20}, {z, -25, 25}, PerformanceGoal -> "Quality", Mesh -> False, ContourStyle -> Directive[Red, Opacity[0.8], Specularity[White, 30], PlotPoints -> 5, MaxRecursion -> 2]], {t0, 0, 2*Pi, \[Pi]/8}]; ListAnimate[t] Robert

Hi Ramiro

Try

PerformanceGoal -> "Quality"

inside ContourPlot3D.

Alternatively:

t = Table[
   ContourPlot3D[
    x^2 + (4 + 1.2*z - 
         Abs[x]*Sqrt[(20 - Abs[x])/15])^2 + (y*(2 - z/15))^2 == (15 + 
        3 (1/2 + (1/2)*Sin[2*Pi*t0 + z/25])^4)^2, {x, -20, 
     20}, {y, -20, 20}, {z, -25, 25}, PerformanceGoal -> "Quality", 
    Mesh -> False, 
    ContourStyle -> 
     Directive[Red, Opacity[0.8], Specularity[White, 30], 
      PlotPoints -> 5, MaxRecursion -> 2]], {t0, 0, 2*Pi, \[Pi]/8}];
ListAnimate[t]

Robert

POSTED BY: Robert Nowak