[GIF] Bridges (Many Brownian bridges)

Staff Picks
, , ,
1

bridge4c.gif

Bridges

Continuing the random theme , this time playing around with BrownianBridgeProcess. Here’s the code:

data = Module[{n = 256}, 
   ParallelTable[
    RandomFunction[
       TransformedProcess[(1 + x[t]) {Cos[t], Sin[t]}, 
        x \[Distributed] 
         BrownianBridgeProcess[
          1/7, {2 ? i/n, 0}, {2 ? + 2 ? i/n, 0}], 
        t], {2 ? i/n, 2 ? + 2 ? i/n, ?/100}][
      "ValueList"][[1]], {i, 1, n}]
   ];

DynamicModule[{cols},
 cols = RGBColor /@ {"#FAFAFA", "#1C1C1C"};
 Manipulate[
  ListLinePlot[Evaluate[data[[;; i]]], AspectRatio -> 1, 
   PlotRange -> {{-#, #}, {-#, #}} &[2.1], Axes -> None, 
   ImageSize -> 540, Background -> cols[[2]], 
   PlotStyle -> Directive[cols[[1]], Thickness[.001]]], {i, 0, 
   Length[data], 1}]]
3 Likes
2

Very nice. You have some cool stuff on your website to! Keep them coming!

3

Thanks!

4

Hi @Clayton,
I can’t get the same nice picture. The lines seem way thicker.
When I add Opacity[0.15] to the Directive it seems more to what I see. Did you add this?

Untitled-1.gif
Untitled-1.gif540×540 65.1 KB

5

No, the code I posted is exactly what I used. But I’m also still on Mathematica 10.3.1, so maybe something changed in 10.4?

6

Hi I’m on MM 10.2. It’s perhaps related to the screenresolution? Anyway, like your art :slight_smile:

7

No idea. None of my monitors is high-DPI, so it’s entirely possible that you’re getting different results if you’re using, say, a 4K monitor.

8

2015-11-02_10-07-11.png

  • another post of yours has been selected for the Staff Picks group, congratulations !

We are happy to see you at the tops of the “Featured Contributor” board. Thank you for your wonderful contributions, and please keep them coming!