3dDot.pd

#N canvas 59 4 508 268 10;
#X obj 16 21 inlet vector;
#X text 113 23 A;
#X obj 168 22 inlet vector;
#X text 265 24 B;
#X obj 168 53 unpack f f f;
#X obj 16 54 unpack f f f;
#X obj 16 119 * \$1;
#X obj 55 119 * \$2;
#X obj 95 120 * \$3;
#X obj 16 152 +;
#X obj 16 182 +;
#X obj 16 220 outlet float;
#X text 139 158 A;
#X text 151 155 .;
#X text 163 158 B = Ax*Bx+Ay*By+Az*Bz = |A|*|B|*cos(rho);
#X text 138 187 where rho is the angle between the vectors A and B
;
#X text 310 220 Version: 2007-12-09;
#X text 311 239 Author: Roman Haefeli;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 4 0 6 1;
#X connect 4 1 7 1;
#X connect 4 2 8 1;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 6 0 9 0;
#X connect 7 0 9 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;