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*

8
  • 1
    $\begingroup$ LOoking for things like this? Plot[{Cos[x], Sin[x]}, {x, 0, 4 Pi}][[1]] /. l_List /; Length[l] > 5 :> Short[l] $\endgroup$ Commented Sep 20, 2013 at 16:51
  • 1
    $\begingroup$ This answer by MichaelE2 is very educational too. $\endgroup$ Commented Sep 20, 2013 at 16:59
  • 1
    $\begingroup$ (plot // First) /. List[(_?NumericQ) ..] :> Sequence[] used there - reducing quality... $\endgroup$ Commented Sep 20, 2013 at 18:27
  • 1
    $\begingroup$ Related: "Making customized InputForm and ShortInputForm." $\endgroup$ Commented Sep 21, 2013 at 2:52
  • 1
    $\begingroup$ You could also addapt the tools provided in (29339) $\endgroup$ Commented Sep 21, 2013 at 13:11