Message Boards Message Boards

GROUPS:

[WSS22] Fluid flow analysis through squared arrangements of pipes

Posted 8 months ago
2288 Views
|
5 Replies
|
18 Total Likes
|
5 Replies
Posted 3 months ago

This is a beautiful post Giuseppe. One could probably use this for modeling of air conditioning ducts and such, is that right? You didn't want to make this notebook downloadable?

B

POSTED BY: Bernard Gress

Hi Bernard,
I attached the notebook for you.

Attachments:
POSTED BY: Ahmed Elbanna
Posted 3 months ago

Thanks so much Ahmed (and Guiseppe).

POSTED BY: Bernard Gress

Extend the analysis to turbulent flows and make an unsteady analysis of the stationary flows we considered...analyze fluid flow on Arnold's Cat Map?

frames = 
  VideoExtractFrames[
   Video["/Users/deangladish/Downloads/water.mp4", 
    Appearance -> Automatic, AudioOutputDevice -> Automatic, 
    SoundVolume -> Automatic],
   Interval[{Quantity[0.0, "Seconds"], Quantity[2.0, "Seconds"]}]];
flow = ImageDisplacements[{frames[[35]], frames[[36]] }]
pts = ImageFeatureTrack[{im1 = frames[[35]], im2 = frames[[36]]}, 
   MaxFeatures -> 20];
Manipulate[ArrayPlot[Nest[Compile[{{pic, _Integer, 2}}, 
    Table[
     pic[[Mod[x + y, 100, 1], Mod[x + 2 y, 100, 1]]], {x, 100}, {y, 
      100}]],
   255 - Reverse[Map[(IntegerPart [#*255]) &,
      ImageData[ColorConvert[ImageResize[
         Show[ImageAssemble[{im1, im2}],

          Graphics[{Green, PointSize[.02], 
            MapThread[
             If[#2 === Missing[], {Cyan, Point[#1]}, 
               Arrow[{#1, #2 + {ImageDimensions[im1][[1]], 0}}]] &, 
             pts]}]
          ], {100, 100}], "Grayscale"]]]], iter], 
  Frame -> False], {{iter, 1, "iterations"}, 0, 150, 1, 
  Appearance -> "Labeled"}, SaveDefinitions -> True]

@Chase Marangu and @Mohammad Ali Ghorbani just remember how insanely fast I could type and the bean bags in the building, that we sat there together. We started to study river flow velocity estimation...please tell us more we're definitely interested in video processing and animated optical fluid flows!

pts = ImageFeatureTrack[{im1 = frames[[35]], 
    im2 = frames[[36]]}, 
   MaxFeatures -> 20];
Show[ImageAssemble[{im1, im2}], 
  Graphics[{Green, PointSize[.02], 
      MapThread[
        If[#2 === Missing[], {Cyan, Point[#1]}, 
            Arrow[{#1, #2 + {ImageDimensions[im1][[1]], 0}}]] &, 
    pts]}]]

River Flow

Optical Flow

A lot of the time we try to make it too nice so just throw something together that works and work on your other assignments.

POSTED BY: Dean Gladish

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