Hello friends;(adsbygoogle = window.adsbygoogle || []).push({});

The points in the source code is supposed to be drawn in 3-D,

S in source code means points in cartesian cordinate (X-Y-Z) respectively.

I am supposed to draw the points in 3-D graph.

Please friends, help me do this.

The source Code is below

a2 = 90; Rz1 = {{Cos[a1 Degree], -Sin[a1

Degree], 0}, {Sin[a1 Degree], Cos[a1 Degree], 0}, {0, 0, 1}};

Rx1 = {{1, 0, 0}, {0, Cos[a2 Degree], -Sin[a2 Degree]}, {0, Sin[a2 Degree],

Cos[a2 Degree]}};

Rz2 = {{Cos[a3 Degree], -Sin[a3 Degree], 0}, {Sin[a3

Degree], Cos[a3 Degree], 0}, {0, 0, 1}};

U = {{1}, {0}, {0}};

S = For[a1 = 0Degree, a1 < 360Degree, a1 += 10Degree,

For[a3 = 0Degree, a3 < 180Degree,

a3 += 10Degree, Print[C = Rz1.Rx1.Rz2.U // N]]]

Thank you

Best Regads

**Physics Forums | Science Articles, Homework Help, Discussion**

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Plotting points in 3-D in Mathematica

**Physics Forums | Science Articles, Homework Help, Discussion**