Assuming you have Mathematica you could use this rather hackish solution:
Show[ReleaseHold[
WolframAlpha[
"plot [y/324, y/275, y/221 for y=200 to 1000 ]", {{"Plot", 1},
"Input"}]],
AxesLabel -> {HoldForm["x axis!"], HoldForm["y axis!"]},
PlotLabel -> HoldForm["Awesome title!"]]
In that I'm querying Alpha for the Mathematica expression necessary to create the plot it displays, and Show[]
ing it with the options we want. You can add any Plot options you want.
There's probably an easier way to do this, but this was the first I found.
Although I'm a little confused as to why you can't just do Plot[{y/324, y/275, y/221}, {y, 200, 1000}]
...