q2rv.m
上传用户:skyjin520
上传日期:2016-12-06
资源大小:20k
文件大小:0k
源码类别:

交通/航空行业

开发平台:

Matlab

  1. function v = q2rv(q) 
  2. if(q(1)<0)
  3.     q = -q;
  4. end  
  5.     n2 = acos(q(1));
  6.     if n2>1e-100
  7.         k = 2*n2/sin(n2);
  8.     else
  9.         k = 2;
  10.     end
  11.     v = k*q(2:4);