I am not sure what the ultimate aim is but for motivation:

p = Plot[{Log[Abs[\[CapitalPhi]8[u]]], 
    Log[Abs[\[CapitalPhi]8b[u]]]}, {u, 0, 2*Pi}, 
   PlotStyle -&gt; {{Thick, Blue}, {Thick, Red, Dashed}}, 
   PlotLegends -&gt; LineLegend["Expressions"]];
rp = ReplacePart[
  p, {2, 1, 2} -&gt; 
   Inner[Style[#1, #2] &amp;, p[[2, 1, 2]], {Blue, Red}, List]]




How to fix the order in which text appears in an axis label (V7)
I recently acquired a used Contax G 90/2.8 Sonnar lens, which is an amazing piece of glass and was wondering did anyone make lens correction profiles for it?  
