Author 
Comment/Response 
Bill Simpson

03/20/13 6:39pm
Try this and see what you get
First define your functions f1,f2,f3,f4,f5,f6
Then evaluate this
GraphicsGrid[{
Plot[{f1,f2,f3},{x,10,15},PlotStyle>{{Red},{Blue,Dashed},{Green,Dashed}}, PlotLegend>{"Y","Y","Y"}, PlotLabel>"X(Y,10),X(Y,20),X(Y,60)", PlotRange>{{10,15},{1,2}}],
Plot[{f4,f5,f6},{x,10,15},PlotStyle>{{Red},{Blue,Dashed},{Green,Dashed}}, PlotLegend>{"Q(Y,10)","Q(Y,20)","Q(Y,60)"}, PlotLabel>"X(Y,10),X(Y,20),X(Y,60)", PlotRange>{{10,15},{0.4,0.6}}]
}]
If that shows any promise then look up each of those capitalized words in the help system and try to see how the help examples relate to your task. Then you can begin tweaking all the knobs related to those as you try to get the display you want.
Getting publication quality graphics finished exactly the way you want them done seems to typically take between ten and a hundred times as much work as just getting a probably correct numerical result. That scale factor depends on how close what you want is to what Mathematica wants. Sometimes, when you really really want precise control over the result, using other tools to generate those dots on that page can be as easy or easier than using Mathematica. Learning how to write raw Postscript is an option you might consider.
URL: , 
