Message Boards Message Boards


[GIF] Bridges (Many Brownian bridges)

Posted 3 years ago
7 Replies
3 Total Likes

Many Brownian bridges


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

data = Module[{n = 256}, 
       TransformedProcess[(1 + x[t]) {Cos[t], Sin[t]}, 
        x \[Distributed] 
          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}]

 cols = RGBColor /@ {"#FAFAFA", "#1C1C1C"};
  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
Posted 3 years ago

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


Posted 3 years ago

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

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?

Posted 3 years ago

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

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.

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!

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
or Discard

Group Abstract Group Abstract