angle2dcm内部的代码是什么?

                              函数(dcm) = angle2dcm (r, seq)
                             
                              % dcm = angle2dcm (r1、r2、r3 seq)
                             
                              %建立欧拉角旋转矩阵
                             
                              %
                             
                              % r = (r1, r2 r3)
                             
                              % seq =“ZYX股票”(默认)
                             
                              %的ZXZ
                             
                              % dcm =方向余弦矩阵
                             
                              如果输入参数个数= = 1
                             
                              seq =“ZYX股票”;
                             
                              结束
                             
                              开关seq
                             
                              情况下“ZYX股票”
                             
                              dcm = Tx (r(3)) *泰(r (2)) * Tz (r (1));
                             
                              情况下“ZXZ”
                             
                              dcm = Tz (r (3)) * Tx (r (2)) * Tz (r (1));
                             
                              结束
                             
                              函数一个= Tx(一个)
                             
                              (1 0 0,0 = cosd (A)信德(A); 0信德(A) cosd (A)];
                             
                              函数一个=泰(一个)
                             
                              = [cosd (A) 0信德(A); 0 1 0;信德(A) 0 cosd (A)];
                             
                              函数一个= Tz(一个)
                             
                              = [cosd (A)信德(A) 0;信德(A) cosd (A) 0。0 0 1);