•Compile function

In[105]:=

fc = Compile[{{x, _Real}, {y, _Real}}, Evaluate[concave[x, y]]] ; colorfunction = (RGBColor[(1 - #), (1 - #), 1] &) ;

In[107]:=

i = 1 ; pContour = ContourPlot[Check[fc[x, y][[i]], 0., CompiledFunction :: "cfn"], {x, Min[Thread[points][[1]]], Max[Thread[points][[1]]]}, {y, Min[Thread[points][[2]]], Max[Thread[points][[2]]]}, DisplayFunction -> Identity, (* ContourShading -> False *) ColorFunction -> colorfunction, Contours -> 20, PlotPoints -> 40, PlotRange -> {0, 1}] ;

Converted by Mathematica  (March 7, 2003)