I am trying to emulate the following Mathematica code that returns the desired result. https://www.dropbox.com/s/awk0dj5po9kd0ap/Screen%20Shot%202022-03-19%20at%201.11.51%20PM.png?dl=0 The part I can't figure is how to constrain a symbolic vector to 1 and still retain it's vector form