- #1
sedat
- 15
- 0
Hello friends;
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
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