I need a dotted line above intersection point and solid line below intersection point of any two curves where they meet. How to produce it in mathematica.
