Jose,
For publication quality plots take a look at Szabolcs Horvát's MaTeX package and Mark Caprio's SciDraw package.
WL uses ColorData[97, "ColorList"] by default. To see the other available indexed color options
ColorData[97, "ColorList"]
ColorData["Indexed"] // Map[(# -> ColorData[#, "ColorList"] &), #] & // Partition[#, UpTo[2]] & // Grid[#, Alignment -> Left] &
I made an attempt at reading your paper, but quickly realized it would take me a while to understand. Will make another attempt when I have more time.
Thank you, Rohit. I am changing my mind by the minute, lol.
How can I specify colors for say 7 curves in a plot (not pairwise this time)? Do I need to use Riffle as well? At this I'm getting overwhelmed with so many curves in a single plot.
Riffle is used to create the pairs of duplicated colors. If you not need that then just specify a list of colors explicitly using a named color {Red, LightGreen, ...}, or RGBColor, or use one of the built-in indexed color lists that I showed in an earlier reply. e.g. to use the default WL colors
Riffle
Red
LightGreen
RGBColor
PlotStyle -> ColorData[97, "ColorList"]]
Perfect, I already incorporated those suggestions. Thanks so much
Something like this?
ClearAll@f f[s_, t_] := s*t*Sin[t] colors = {Red, Green, Blue}; Plot[{f[1/8, t], f[1/4, t], f[3/8, t], f[1/2, t], f[5/8, t], f[3/4, t], f[7/8, t]}, {t, 0, 15}, PlotStyle -> Riffle[colors, colors]]
Wow, exactly. Let me try this, this will make my final graph pretty cool. I'm using it in a paper on the zeta function.
PS - I wonder how you were able to manage to imitate my curves and recolor them, Lol.
Hi Rohit, what if I had say 7 pairs with the same color, and one extra line. Should I place the line last, will it work?
Hi Jose,
If you have N curves and the length of the PlotStyle list of colors is less than N, then the color list will repeat from the beginning. If you do not want it to repeat, append another color. So in your case the list should be 7 pairs of colors followed by the color for the last curve
PlotStyle
{c1, c1, c2, c2, c3, c3, c4, c4, c5, c5, c6, c6, c7, c7, c8}
Sure
Defer[f[r, t] - 2 t]
Any Style can also be applied e.g.
Style
Style[Defer[f[r, t] - 2 t], 18, Bold, Blue, FontFamily -> "Times New Roman"]
So a string can also be used, but the appearance will be a little different from using Defer or TraditionalForm e.g.
Defer
TraditionalForm
Style["f(r,t) - 2t]", 18, Bold, Blue, FontFamily -> "Times New Roman", FontSlant -> Italic]
Perfect!
Rohit, is it possible to force curves, 2 by 2, to have the same color? Reason why I'm asking is cause I want to have 14 curves in the same graph! There are two equations for each one of 7 r parameters.
The problem is that f[x] is being evaluated. Try
f[x]
AxesLabel -> {t, Defer@f[r, t]}
Perfect, exactly what I needed. Thank you!
Is it possible to have something like f(r,t)-2t in italics as well?
