Dear all,
how can I increase the length of the ticks inside of the following ShowLegend command?
ShowLegend[Show[ListLinePlot[
{
Transpose[{Range[1,5,1],Table[-x^2+RandomReal[2],{x,5}]}],
Transpose[{Range[1,5,1],Table[-x^2+RandomReal[2],{x,5}]}],
Transpose[{Range[1,5,1],Table[-x^2+RandomReal[2],{x,5}]}]
},
PlotStyle->{Black,Red,Blue},
PlotRange->All,
FrameTicks->{{Automatic,None},{Automatic,None}},(*ticks are plotted {left,right},{bottom,top}*)
ImageSize->{N[GoldenRatio]550,550},
BaseStyle->{FontFamily->"Arial",FontSize->20},