Question: for loop plotting

Hello,
I need help on plotting in for loop.
for M from 1.1 by .2 to 1.7 do 
for F from -3 to 3 by 0.1 do F2[F]:=dsolve(d1, numeric,output=listprocedure): end do:
for F from -3 to 3 by 0.1 do
P2[F]:=subs(F2[F],P1);
P3[F]:=evalf(Int(P2[F],0..1));
end do:
IQ:=Vector([seq(F,F=-3..3,0.1)]):
DT:=Vector([seq(P3[F],F=-3..3,0.1)]):
plot(IQ,DT);
end do;
The above code gives me 4 separate plots, but I want them all in just one plot.
Please Wait...