#N canvas 453 341 669 405 10; #X obj 216 112 expr sqrt($f1*$f1 + $f2*$f2); #X obj 142 111 cartopol; #X floatatom 216 80 5 0 0 0 - - -, f 5; #X floatatom 396 79 5 0 0 0 - - -, f 5; #X text 217 60 x \, y to vector magnitude; #X floatatom 216 138 5 0 0 0 - - -, f 5; #X floatatom 142 133 5 0 0 0 - - -, f 5; #X obj 370 78 t b; #X obj 334 196 *; #X obj 379 196 *; #X obj 334 248 +; #X floatatom 334 296 5 0 0 0 - - -, f 5; #X text 385 297 not quite the same; #X obj 334 271 sqrt; #X obj 334 221 pack f f; #X text 135 16 Replace cartopol without expr; #X obj 379 160 t f f; #X obj 329 160 t f f; #X connect 0 0 5 0; #X connect 1 0 6 0; #X connect 2 0 0 0; #X connect 2 0 1 0; #X connect 2 0 17 0; #X connect 3 0 0 1; #X connect 3 0 1 1; #X connect 3 0 7 0; #X connect 3 0 16 0; #X connect 7 0 2 0; #X connect 8 0 14 0; #X connect 9 0 14 1; #X connect 10 0 13 0; #X connect 13 0 11 0; #X connect 14 0 10 0; #X connect 16 0 9 0; #X connect 16 1 9 1; #X connect 17 0 8 0; #X connect 17 1 8 1;