Message Boards Message Boards

[WSS22] Fluid dynamics on graphs

Posted 1 year ago

Wolfram Notebook

POSTED BY: Abhishek Joshi
2 Replies

enter image description here -- you have earned Featured Contributor Badge enter image description here Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: Moderation Team
Directory[]; Get["/Users/deangladish/QuiverGeometry/Kernel/init.m"]

@Abhishek Joshi that was so good capturing fluid dynamics & interaction, and discovering the limits of this discrete approach, and so the question is what are they?

Manipulate[
     evoSqLarge = QuiverGasEvolve[
       QuiverGas[
        SquareQuiver@{Modulo@20, Modulo@20},
        {"yY" -> "xX"},
        RuleSymmetries -> {PCycle["yxYX"]}
        ], t, 1000];
     Column[{
       evoSqLarge["ParticlePlot", 2, Mesh -> False],
       evoSqLarge["DensityPlot", 1, {20, 20}]
       }],
     {{t, 50, "Time"}, 1, 100, 1}
     ]

QuiverGasManipulate

POSTED BY: Dean Gladish
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