[WSS22] Fluid dynamics on graphs

[20mph006 (Abhishek Joshi)]

Open in Wolfram Cloud ↗

[wolframcommunity (EDITORIAL BOARD)]

– you have earned Featured Contributor Badge
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!

[gladishdean (Dean Gladish)]

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}
     ]