2
$\begingroup$

I currently have a recursion done in 3D.

At the moment, I am able to manipulate the points, but I cannot use "Joined->True" to connect them Currently this is what I have

z[1, t_] := {1, 1, 1}; A3[t_] := {{1, -t, 0}, {t, 1, -t}, {0, t, t + 1}} W[t_] := Inverse[(IdentityMatrix[3] + A3[t])]; z[n_Integer, t_] /; n > 0 := W[t].z[n - 1, t]; Manipulate[ ListPointPlot3D[Table[z[n, t], {n, 1, 10}], Mesh -> Full, Joined -> True, PlotRange -> All, InterpolationOrder -> 1], {t, 0, 1}]

Any idea on how to connect the points?

Improve this question
$\endgroup$
2
  • $\begingroup$ Yes. Don't know why I did that $\endgroup$ Commented Apr 27, 2013 at 23:40
  • $\begingroup$ I deleted my comment, since it's fixed now. I'll delete this one later. $\endgroup$ Commented Apr 28, 2013 at 16:59

1 Answer 1

Reset to default
3
$\begingroup$ 
Manipulate[ Graphics3D[{Line@#, PointSize@Large, Red, Point@#} &@ Table[z[n, t], {n, 1, 10}], PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}], {t, 0, 1}]

enter image description here

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.