Wolfram Cloud Document

data=

;

In[]:=

ListContourPlot[data,Contours10,PlotLegendsAutomatic,PlotRangeAll,RegionFunctionFunction[{x,y,z},-21+

1-y

+3+2

1-y

y<x<-2+2

1-y

+3y-2

1-y

y]]

Out[]=

In[]:=

ContourPlot[1,{i,0,1},{j,0,1},PlotLegendsAutomatic,PlotRangeAll,RegionFunctionFunction[{x,y,z},-21+

1-y

+3+2

1-y

y<x<-2+2

1-y

+3y-2

1-y

y]]

Out[]=

In[]:=

RegionPlot[-21+

1-y

+3+2

1-y

y<x<-2+2

1-y

+3y-2

1-y

y,{x,0,1},{y,0,1},PlotRangeFull]

Out[]=