Mathematica Asked on April 18, 2021
Drawing a StreamPlot
of a linear dynamical system:
A = {{9, -15}, {7, -9}};
StreamPlot[A.{x, y}, {x, -2, 2}, {y, -2, 2}, StreamPoints -> Coarse]
results in a few colinear points inside the ellipse. I guess they are some degenerate arrows, but it looks very confusing, so how to get rid of those? (They stay there when StreamPoints -> Medium
as well, although less abundant.)
$Version
"12.1.1 for Linux x86 (64-bit) (June 19, 2020)"
Delete short arrows?:
A = {{9, -15}, {7, -9}};
StreamPlot[A . {x, y}, {x, -2, 2}, {y, -2, 2},
StreamPoints -> Coarse] /.
Arrow[a_] /; Total[Norm /@ Differences[a]] < 0.1 :> {}
Correct answer by Michael E2 on April 18, 2021
Get help from others!
Recent Answers
Recent Questions
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP