Message Boards Message Boards

[GIF] Bridges (Many Brownian bridges)

Many Brownian bridges

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

enter image description here - 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!

POSTED BY: Moderation Team

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?

enter image description here

POSTED BY: l van Veen

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?

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

POSTED BY: l van Veen

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.

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

POSTED BY: l van Veen

Thanks!

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