Skip to main content
Mathematica

Return to Question

edited tags
Link
Michael E2
Michael E2
  • 258.6k
  • 21
  • 370
  • 830
3
duplicates list edited from Manipulation replacements rules from Solve [closed] to Assign the results from a Solve to variable(s), Manipulation replacements rules from Solve [closed]
Link
Michael E2
Michael E2
  • 258.6k
  • 21
  • 370
  • 830
Post Closed as "Duplicate" by Michael E2 list-manipulation
added two tags
Link
user49048
user49048
Source Link
lotus2019
lotus2019
  • 2.8k
  • 6
  • 12

How to automatically get {a,b,c} from {x -> a, y -> b, z -> c}?

I want to get the graphic of a 3D-straight line:

First:

Clear["Global`*"]; FindInstance[1/4 (-1 + x) == -y == 1/3 (-2 - z), {x, y, z}, Reals, 2] (*{{x -> 1/2, y -> 1/8, z -> -(13/8)}, {x -> 3/5, y -> 1/10, z -> -(17/10)}}*)

Then the " x-> y-> z->" need to be deleted manually and get two point {1/2, 1/8, -(13/8)}, {3/5, 1/10, -(17/10)}.

Finally:

Graphics3D[InfiniteLine[{{1/2, 1/8, -(13/8)}, {3/5, 1/10, -(17/10)}}], PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}}, Axes -> True, AspectRatio -> 1, AxesOrigin -> {0, 0, 0}, AxesLabel -> {x, y, z}]

How to combine these two pieces of code into one piece? Or, How to automatically get {a,b,c} from {x -> a, y -> b, z -> c}?