I want to produce a bifurcation diagram using mathematica to represent equilibrium points of p1 using the data obtained from the following code, where pn1, pn2, pn3 are recrusion exquations. i.e. x-axis will be the paramter t (ranging from 0-0.3) and y-axis will be the values of p1 this code produces.(adsbygoogle = window.adsbygoogle || []).push({});

series = {};

For[i = 0, i ≤ 300, ++i, p1sol = Sort[

p1 /. NSolve[{pn1 == 0, pn2 == 0, pn3 == 0} /. t -> i/1000.0, {p1, p2, p3}]];

series = Join[p1series, {Join[{i/1000.0}, p1sol]}]]

Thanks if you can help me.

**Physics Forums - The Fusion of Science and Community**

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Produce a bifurcation diagram using mathematica

Loading...

Similar Threads - Produce bifurcation diagram | Date |
---|---|

[Maple] Calculating the potential produced by a charge | Feb 27, 2017 |

Drawing Feynman diagrams with feynarts | Nov 13, 2015 |

Silvaco Atlas export Energy Band Diagram programatically | Jun 10, 2014 |

Producing arrays to plot (MATLAB) | Oct 8, 2012 |

Plotting: Which software do you find best to produce beautiful plots? | Nov 14, 2011 |

**Physics Forums - The Fusion of Science and Community**