# Plot3D - Rugged surface at the boundary

I am trying to plot a function over a tirangular region

   F[x_, y_] := -(0.1/x)*(Log[(x - y)/0.1])
Plot3D[F[x, y] , {x, 0.1, 3}, {y, 0, 5},
RegionFunction -> Function[{x, y}, x > y],
PlotRange -> {-2, 1}, AxesLabel -> Automatic, Mesh -> 60]


and I get some a jagged surface on one boundary. I appreciate the surface is very steep on the $$x=y$$ line, and it could pose numerical difficulties.

Yet, is there a workaround to obtain a more aesthetically pleasing plot?

Thanks

• can't run your code. F100234 not defined. – Nasser Feb 11 at 8:37
• My apologies, should be corrected now, thanks – Smerdjakov Feb 11 at 8:40
• I get different plot. V 12. Screen shot !Mathematica graphics – Nasser Feb 11 at 8:44
• Adding PlotPoints -> 100 might help. – Henrik Schumacher Feb 11 at 8:46
• @Nasser, please consider my further edit, I have checked it now twice, sorry. – Smerdjakov Feb 11 at 8:49

Add Boole to the plot argument:
Plot3D[F[x, y] Boole[x >= y], {x, 0.1, 3}, {y, 0, 5},RegionFunction -> Function[{x, y}, x > y], PlotRange -> {-2, 1},AxesLabel -> Automatic, Mesh -> 60] 