Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

5
  • $\begingroup$ Unfortunately it will crashed inside Table or Manipulate.For example: Table[Graphics`Legacy`Plot[ Sin[x + a], {x, 0, 2 Pi}], {a, 1, 5}] $\endgroup$ Commented Jan 9, 2020 at 4:41
  • $\begingroup$ it seems that this function has a little problem. But it is really fast. Graphics`Legacy`Plot[Tan[x], {x, 0, Pi}] $\endgroup$ Commented Jan 9, 2020 at 8:08
  • $\begingroup$ ok,I find this. Visualization`Core`Plot3D[Sin[x y], {x, 0, 5}, {y, 0, 5}] ,which can draw 3D $\endgroup$ Commented Jan 9, 2020 at 8:18
  • $\begingroup$ @matrix89 Try it thus: Table[With[{a = a}, Graphics`Legacy`Plot[Sin[a x], {x, 0, 5}]], {a, 2}] $\endgroup$ Commented Jan 9, 2020 at 12:51
  • 1
    $\begingroup$ @wuyudi Do you mean the "little problem" is the extra vertical line in Graphics`Legacy`Plot[Tan[x], {x, 0, Pi}] compared to Plot[Tan[x], {x, 0, Pi}]? One reason the new Plot is slower than the legacy Plot is that it does extra analysis to exclude discontinuities as well as other preprocessing (plot themes, Quantity[], etc.); the new plotters also do better adaptive refinement, too. -- Note that Visualization`Core`Plot3D is pretty much the same as Plot3D minus the automatic option processing. To get closer to the legacy function add the option MaxRecursion -> 0. $\endgroup$ Commented Jan 9, 2020 at 14:05