#N canvas 50 92 484 381 10;
#X obj 41 68 inlet pt;
#X obj 180 68 inlet ab;
#X obj 41 322 pack f f;
#X obj 41 341 outlet;
#X obj 41 97 unpack f f;
#X obj 180 87 unpack f f;
#X obj 41 192 +;
#X obj 180 106 inv;
#X obj 180 125 t f f;
#X obj 41 163 *;
#X obj 88 234 * -1;
#X obj 41 228 t b f;
#X obj 41 283 f;
#X text 40 19 donne les coefficients a' et b' d'une droite passant
par un point(x \, y) et orthogonale à une droite y=ax+b;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 4 0 9 0;
#X connect 4 1 6 1;
#X connect 5 0 7 0;
#X connect 6 0 11 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 8 1 9 1;
#X connect 9 0 6 0;
#X connect 10 0 12 1;
#X connect 11 0 12 0;
#X connect 11 1 2 1;
#X connect 12 0 2 0;
