2
$\begingroup$

I have the following code

o = {Red, PointSize[.03], Point[orig = {0, 0, 0}]};
u = {2, a, -1};
v = {3, 1, -2};
w = {2 a - 1, -2, 4};
Solve[Dot[u, v] == Dot[u + v, v + w], a]
a = a /. Flatten[%];
Graphics3D[{Text[Style["u", Large, Bold, Red], Offset[{-50, -30, 0}, u]],
  Text[Style["v", Large, Bold, Red], Offset[{-50, -30, 0}, v]],
  Text[Style["w", Large, Bold, Red], Offset[{-50, -30, 0}, w]],
  Arrow[{orig, (u)}],Arrow[{orig, (v)}],Arrow[{orig, (w)}],o},
  Axes -> True,AxesOrigin -> Automatic]

On my screen appears the following warning me stating the following: Too many arguments given

If I eliminate the error, my result does not appear. but if I disregard, it's OK.

Improve this question
$\endgroup$
0

1 Answer 1

Reset to default
3
$\begingroup$

I think you've used the Offset command rather than just putting in the offset coordinates. I've had to change the offset coordinates from {-50, -30} to get the offset in the right ballpark.

a =.
o = {Red, PointSize[.03], Point[orig = {0, 0, 0}]};
u = {2, a, -1};
v = {3, 1, -2};
w = {2 a - 1, -2, 4};
Solve[Dot[u, v] == Dot[u + v, v + w], a]
a = a /. Flatten[%];
Graphics3D[{
  Text[Style["u", Large, Bold, Red], u, {-.50, -.30}], 
  Text[Style["v", Large, Bold, Red], v, {-.50, -.30}], 
  Text[Style["w", Large, Bold, Red], w, {-.50, -.30}],
  Arrow[{orig, (u)}], Arrow[{orig, (v)}], Arrow[{orig, (w)}], o}, 
 Axes -> True, AxesOrigin -> Automatic]

Labeled vectors

Improve this answer
$\endgroup$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.