•Compile function

In[96]:=

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

In[98]:=

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 -> 100, PlotRange -> {0, 1}] ;

Converted by Mathematica  (March 7, 2003)