Data: D1, I1, D2, I2
Result: DN,
IN
Formulas:
1. D1, I1 ⇒ x1,
y1,
z1
2. D2, I2 ⇒ x2,
y2,
z2
3. xN =y1 * z2 – y2 * z1
yN = z1 * x2 – z2 * x1
zN = x1 * y2 – x2 * y1
4. xN, yN,
zN ⇒ DN,
IN
Pascal listing:
di2xyz(Decl1,Incl1,x1,y1,z1);
di2xyz(Decl2,Incl2,x2,y2,z2);
xN:= y1 * z2 – y2 * z1;
yN:= z1 * x2 – z2 * x1;
zN:= x1 * y2 – x2 * y1;
xyz2di(xN,yN,zN,DeclN,InclN);