转换成C代码 DIMENSION C3A3B3 C1=A2B3-B2A3 C2=A3B1-B3A1 C3=A1B2-B1A2 DEX=DSQRTC1C1+C2C2+C3C3+10D-80 C1=C1DEX C2=C2DEX C3=C3DEX RETURN

double C[3], A[3], B[3]; C[0] = A[1]*B[2] - B[1]*A[2]; C[1] = A[2]*B[0] - B[2]*A[0]; C[2] = A[0]*B[1] - B[0]*A[1]; double DEX = sqrt(C[0]*C[0] + C[1]*C[1] + C[2]*C[2] + 1.0e-80); C[0] = C[0]/DEX; C[1] = C[1]/DEX; C[2] = C[2]/DEX;