#N canvas 193 70 979 458 10;
#X text 27 -276 a + ib;
#X text 28 -255 Soit : module = sqrt(pow(a \, 2) + pow(b \, 2));
#X text 70 -232 argument = atan(b / a);
#X obj 49 -197 sqrt;
#X obj 84 -197 pow;
#X obj 111 -197 atan;
#X obj 198 -99 expr sqrt(pow($f1 \, 2) + pow($f2 \, 2));
#X floatatom 197 -133 5 0 0 0 - - -;
#X text 234 -131 nombre a;
#X text 457 -131 nombre b;
#X obj 57 -25 expr atan($f2 / $f1);
#X text 28 -298 Calcul du module et de l'argument d'un nombre complexe
;
#N canvas 0 22 450 300 (subpatch) 0;
#X array argument 200 float 2;
#X coords 0 1 200 -1 200 140 1;
#X restore 701 -257 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array module 200 float 2;
#X coords 0 1 200 -1 200 140 1;
#X restore 702 -97 graph;
#X obj 328 31 tabwrite module;
#X obj 416 -159 t f b;
#X obj 345 -30 tabwrite argument;
#X floatatom 472 -51 5 0 0 0 - - -;
#X obj 195 -162 * 0.1;
#X floatatom 466 -157 5 0 0 0 - - -;
#X obj 306 -230 f;
#X obj 340 -230 + 1;
#X obj 306 -281 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 306 -252 metro 250;
#X obj 328 8 * 0.01;
#X msg 351 -278 stop;
#X obj 306 -177 select 200;
#X obj 341 -199 % 201;
#X obj 94 -118 print a;
#X obj 179 36 print module argument;
#X text 675 116 p.gustin le 23 jan. 2009;
#X connect 6 0 24 0;
#X connect 6 0 29 0;
#X connect 7 0 6 0;
#X connect 7 0 10 0;
#X connect 10 0 16 0;
#X connect 10 0 29 0;
#X connect 15 0 6 1;
#X connect 15 0 10 1;
#X connect 15 1 6 0;
#X connect 15 1 10 0;
#X connect 17 0 16 1;
#X connect 17 0 14 1;
#X connect 18 0 7 0;
#X connect 18 0 28 0;
#X connect 19 0 15 0;
#X connect 20 0 21 0;
#X connect 20 0 26 0;
#X connect 20 0 17 0;
#X connect 20 0 19 0;
#X connect 21 0 27 0;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 24 0 14 0;
#X connect 25 0 23 0;
#X connect 26 0 25 0;
#X connect 27 0 20 1;