Blog

With the help of the answer of the question Amelioration of a 3D plot, I have been able to construct the following plot SetOptions[{Plot, ListPlot, ArrayPlot, ContourPlot, DiscretePlot3D, Plot3D, Graph3D}, BaseStyle -> {14, Directive[FontFamily -> “Times New Roman”]}]; arrowAxes[arrowLength_] := Map[{Black, Arrow[Tube[{{0, 0, 0}, #}]]} &, arrowLength IdentityMatrix[3]] With[{zproj = -1.5}, Module[{f, surface, graphicsComplexPts, contourParts,Read more