fluid-step-cube   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/fluid2d.xtm

Implementation

(bind-func fluid-step-cube
  (lambda (cube:fluidcube*)
    (let ((N (tref cube 0))
    (Ny (tref cube 10))
    (dt (tref cube 1))
    (diff (tref cube 2))
    (visc (tref cube 3))
    (s (tref cube 4))
    (k 0)
    (iter 3)
    (kk 0)
    (density (tref cube 5))
    (Vx (tref cube 6))
    (Vy (tref cube 7))
    (Vx0 (tref cube 8))
    (Vy0 (tref cube 9))
    (time (now)))
      (fluid-diffuse 1 Vx0 Vx visc dt iter Ny N)
      (fluid-diffuse 2 Vy0 Vy visc dt iter Ny N)


Back to Index

Similar Entries

  • fluid-step-cube    xtlang