7 lines
160 B
Mathematica
7 lines
160 B
Mathematica
|
function R = Rotz_s(x)
|
||
|
|
%UNTITLED Summary of this function goes here
|
||
|
|
% Detailed explanation goes here
|
||
|
|
R=[cos(x) -sin(x) 0; sin(x) cos(x) 0; 0 0 1];
|
||
|
|
end
|
||
|
|
|