Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

I execute the same code in Mathematica 9 and MAthematica 10, and have this different results.

Expr1 = -0.7 alfa + 2;
Expr2 = 1.2 alfa + 1.3;

p2 = Plot[{Expr1, Expr2}, {alfa, 0, 1}, 
  BaseStyle -> AbsoluteThickness[9], 
  PlotLegends -> 
   LineLegend["Expressions", BaseStyle -> AbsoluteThickness[4]], 
  PlotRange -> {Automatic, {-5, 10}}, AspectRatio -> 1.5]
Solve[Expr1 == Expr2, alfa]

What options I have use to obtaining in Mathematica10 the same results as en Math9.0

Thickness, and colors series.

enter image description here

share|improve this question
Please remember that folks like to have code to copy/paste -- it's convenient for those who would help you. – Michael E2 Jul 25 '14 at 10:45
@MichaelE2 , ok. I´m agree. – Mika Ike Jul 25 '14 at 10:49
up vote 6 down vote accepted

This issue arises due to the introduction of PlotTheme in Mma v10.
You can disable this behaviour by using PlotTheme -> None, e.g.

Plot[{x^2 + x, x^2}, {x, -1, 1}, BaseStyle -> AbsoluteThickness[4], PlotTheme -> None]

If you have multiple plots in your notebook, than you can execute


somewhere before the plots to get the old behaviour for all plots.

To get a "Detailed" plot with the "Classic" colors and thicker lines:

share|improve this answer
+1 Well, gee, you'd think specific options would override Automatic ones (default $PlotTheme is Automatic). – Michael E2 Jul 25 '14 at 12:28
@MichaelE2 the hole PlotTheme concept seems to be not yet fully integrated. E.g., Some examples in the documentation are broken now and some easy modifications now even don't work after setting PlotTheme -> None BoxWhiskerChart. – Karsten 7. Jul 25 '14 at 12:44
I like the "Detailed" option but... how could I obtain DETAILED with the lines more thickness?, and with the old colors?. CODE p2 = Plot[{Expr1, Expr2}, {p, 0, 1}, BaseStyle -> AbsoluteThickness[4], PlotTheme -> Detailed] – Mika Ike Jul 25 '14 at 20:40
@MikaIke try Plot[{Expr1, Expr2}, {p, 0, 1}, PlotStyle -> AbsoluteThickness[4], PlotTheme -> {"Classic", "Detailed"}] – Karsten 7. Jul 25 '14 at 20:59
@Karsten7. Simply, Perfect! Thank you very much. – Mika Ike Jul 26 '14 at 6:28

Rather than turning off the Theme capability you could work with it:

Plot[{x^2 + x, x^2}, {x, -1, 1}, PlotTheme -> "ThickLines"]

enter image description here

You can combine Themes allowing additional control. To learn how to create new Themes such as "Thick5" see the Advanced section of my answer to:

Example of use:

Plot[{x^2 + x, x^2}, {x, -1, 1}, PlotTheme -> {"Detailed", "Thick5"}]

share|improve this answer

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.