Question: 2D plot of multiple inequalities or maximum

I currently have a 3D plot where the axes are Pn​, w, and the objective value (TM1, TM2, TM3 are all positive). I want to convert this into a 2D regional plot with Pn on the x-axis and w on the y-axis. How do I write the syntax for generating such a 2D region plot?

restart

with(Optimization); with(plots); with(LinearAlgebra)

_local(Pi)

Pi

(1)
 

TM1 := (Pn-.35)*(3.000000000-3.333333333*Pn)+.1115859938-.2510684861*w

(Pn-.35)*(3.000000000-3.333333333*Pn)+.1115859938-.2510684861*w

(2)

TM2 := (Pn-.348)*(2.996666666-3.333333333*Pn)+.1017286174-.2299240474*w

(Pn-.348)*(2.996666666-3.333333333*Pn)+.1017286174-.2299240474*w

(3)

TM3 := (Pn-.348)*(2.996666666-3.333333333*Pn)+.1018208882-.2301325952*w

(Pn-.348)*(2.996666666-3.333333333*Pn)+.1018208882-.2301325952*w

(4)

S1 := plot3d(TM1, Pn = 0 .. 1, w = 0 .. 1, orientation = [165, 75, 0], color = "SkyBlue"); S2 := plot3d(TM2, Pn = 0 .. 1, w = 0 .. 1, orientation = [165, 75, 0], color = "Yellow"); S3 := plot3d(TM3, Pn = 0 .. 1, w = 0 .. 1, orientation = [165, 75, 0], color = "Red")

display({S1, S2, S3})

 

``

Download Plot_3D_to_2D.mw

 
Please Wait...