a1=0.5
a2=0.3
a3=0.2
l1=0.3
l3=0.5
w=1
w4=2
w5=3
w6=4
w0=(1-a1)/(a2 l1)
Print["График-4 П2(w;l2)"]
Plot3D[((-1) w l2^2+(1-a2 w l1/(1-a1)) l2) (Sign[-w l2^2+(1-a2 w l1/(1-a1)) l2]+1)/2,{w,0.,1},{l2,0,1.5},AxesLabel->{"w","l2","П2"}]
Print["График-5 П2max(w)"]
Plot[1/(4 w)+(a2 l1/(2 (1-a1)))^2 w-a2 l1/(2 (1-a1)),{w,0,12},AxesLabel->{"w","П2max"}]
Print["График-6"]
Plot[{x w0/(w4+x w0),x w0/(w5+x w0),x w0/(w6+x w0),x/(1-x)},{x,0,0.35},PlotRange->All,AxesLabel->{"x","y"}]
Print["График-7"]
Plot[{2 x/(1-Sqrt[1-4 x]),2 x/(1+Sqrt[1-4 x]),x/(1-x),2 x/(1+x)},{x,0,0.5},PlotRange->All,AxesLabel->{"x","y"}]
Print["График-8 П2max(x)"]
Plot[x^2/(w0 (1-2 x)),{x,0,0.5},AxesLabel->{"x","П2max"}]
Print["График-9 m(x)"]
Plot[x/(1-x),{x,0,0.5},PlotRange->All,AxesLabel->{"x","m"}]
Print["График-10 П2(x;y)"]
Plot3D[(y-x)/(w0 (1-y)),{x,0.0,1.},{y,0.0,1.0},AxesLabel->{"x","y","П2"},Exclusions->{y==1}]
Print["График-11 П2(m;y)"]
Plot3D[(m/(1+m)) (y/(1-y)) (1/w0),{m,0.,5},{y,0.0,1.0},AxesLabel->{"m","y","П2"},Exclusions->{y==1}]
Print["График-12 Р1(l1;l2)"]
Plot3D[((1-w l2) (1-a1)-w a2 l1)/(w a2 l1+a1+w l2 (1-a1)),{l1,0.,1},{l2,0.,1.},AxesLabel->{"l1","l2","P1"}]
Print["График-13 Р2(l1;l2)"]
Plot3D[(-w (1-a1) l2^2+(1-a1-a2 w l1) l2)/(w (1-a1) l2^2+a2 w l1 l2+a2 l1),{l1,0.,1},{l2,0.,1.},AxesLabel->{"l1","l2","P2"}]
Print["График-14 Р3(l1;l2)"]
Plot3D[l3 (1-a1-w (l2 (1-a1)+a2 l1))/(w l3 (l2 (1-a1)+a2 l1)+a3 l1),{l1,0.,1},{l2,0.,1.},AxesLabel->{"l1","l2","P3"}]

Print["График-15 Р1(m)"]
Plot[(1-a1) m/(1+a1 m),{m,0.,1},AxesLabel->{"m","P1"}]
Print["График-16 Р2(m;y)"]
Plot3D[m y/(1+m (1-y)),{m,0.,1},{y,0.,1.},AxesLabel->{"m","y","P2"}]
Print["График-17 Р3(m;y)"]
Plot3D[m w l3/(w l3+a3 (1-y)/a2),{m,0.,1},{y,0.,1.},AxesLabel->{"m","y","P3"}]

Print["Дополнительные графики"]
Print["w(x;y)"]
Plot3D[w0 x (1-y)/y,{x,0.,1},{y,0.,1.2},AxesLabel->{"x","y","w"}]