2
![Mathematica](http://cdn.sstatic.net/mathematica/img/apple-touch-icon.png)
For Example
s = Table[k[j] -> Interpolation[Table[{i, Sin[i j]}, {i, 6}]], {j, 1, 6}];
Manipulate[
ParametricPlot3D[{{k[4][t], k[5][t], k[6][t]}, {k[1][t], k[2][t], k[3][t]}} /. s, {t, 1, a},
PlotStyle -> {Red, Green},
Evaluated -> True,
PlotRange -> {{-1.5, 1.5}, {-1.5, 1...