For a class project, I am trying to make a 3D object which includes a fleet of ships heading toward an island. I was planning to make one ship and translate it to many locations. However I've run into a dilemma. The method I am using to show the translation of the copied ship object has run into a snag and I'm wondering what I'm doing wrong. This is what I used without including the translation:
K1 = ParametricPlot3D[{(1 - 2 b) (7 + Cos[b]) Cos[
8 Pi*a], (1 - a) (3 + Cos[4 b]) Sin[8*Pi*a],
4 a + (1 - a) Cos[12*Pi*b]}, {a, -1, 1}, {b, -1, 1},
PlotStyle -> Directive[Brown],
MeshStyle -> {{Black, Thickness[0.001]}, {Black,
Thickness[0.001]}}, Axes -> False, Boxed -> False];
K2 = {Blue,
Polygon[{{-50, 50, -3}, {50,
50, -3}, {50, -50, -3}, {-50, -50, -3}}]};
K3 = {Black, Cylinder[{{15, 0, 0}, {15, 0, 15}}, .75]};
K4 = {Black, Cylinder[{{-15, 0, 0}, {-15, 0, 15}}, .75]};
K5 = {Black, Cylinder[{{0, 0, 0}, {0, 0, 30}}, .75]};
Show[{Graphics3D[{K2, K3, K4, K5}], K1}]
This is what I used with the translation added:
K1 = ParametricPlot3D[{(1 - 2 b) (7 + Cos[b]) Cos[
8 Pi*a], (1 - a) (3 + Cos[4 b]) Sin[8*Pi*a],
4 a + (1 - a) Cos[12*Pi*b]}, {a, -1, 1}, {b, -1, 1},
PlotStyle -> Directive[Brown],
MeshStyle -> {{Black, Thickness[0.001]}, {Black,
Thickness[0.001]}}, Axes -> False, Boxed -> False];
K2 = {Blue,
Polygon[{{-50, 50, -3}, {50,
50, -3}, {50, -50, -3}, {-50, -50, -3}}]};
K3 = {Black, Cylinder[{{15, 0, 0}, {15, 0, 15}}, .75]};
K4 = {Black, Cylinder[{{-15, 0, 0}, {-15, 0, 15}}, .75]};
K5 = {Black, Cylinder[{{0, 0, 0}, {0, 0, 30}}, .75]};
Show[{Graphics3D[{K2, K3, K4, K5}], K1, Translate[{Graphics3D[{K2, K3, K4, K5}], K1}, {50, 0, 0}]}]
If anyone could add any clarification as to what I'm doing wrong, that would be greatly appreciated.