home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21eb.zip / octave / SCRIPTS.ZIP / scripts / quaternion / qconj.m < prev    next >
Text File  |  1998-10-23  |  242b  |  12 lines
  1.  
  2. function retval = qconj(q)
  3.   # function retval = qconj(q)
  4.   # conjugate of a quaternion
  5.   #  q = [w,x,y,z] = w*i + x*j + y*k + z
  6.   # qconj(q) = -w*i -x*j -y*k + z
  7.  
  8.   [a,b,c,d] = quaternion(q);
  9.   retval = quaternion(-a,-b,-c,d);
  10. endfunction
  11.  
  12.