QBasic & Borland Pascal & C/Delphi5.iso/C/Samples/C-SSP.ARJ/VCRSPR.C

Text File | 1984-06-14 | 247 b | 12 lines

    vcrspr (a,b,c)

      /*this function evaluates the cross product of two vectors.*/

      float a[],b[],c[];

    {
      c[0] = a[1]*b[2] - a[2]*b[1];
      c[1] = a[2]*b[0] - a[0]*b[2];
      c[2] = a[0]*b[1] - a[1]*b[0];
    }