#N canvas 46 212 1098 676 12;
#X obj 23 75 inlet;
#X obj 102 619 outlet;
#X obj 24 157 unpack f f;
#X obj 42 247 pack f f;
#X obj 122 157 t b b;
#X msg 42 270 xy= \$1 \$2;
#X text 625 537 dh20020401;
#X text 19 10 vector name x y;
#X obj 24 206 value \$1_x;
#X obj 125 206 value \$1_y;
#X obj 203 244 value \$1_x;
#X obj 299 244 value \$1_y;
#X obj 305 279 +;
#X obj 206 279 +;
#X obj 256 216 unpack f f;
#X obj 203 303 value \$1_x;
#X obj 305 304 value \$1_y;
#X obj 236 185 t a b;
#X obj 285 16 valueinit \$1_x \$2;
#X obj 412 245 value \$1_x;
#X obj 508 245 value \$1_y;
#X obj 465 217 unpack f f;
#X obj 412 304 value \$1_x;
#X obj 514 305 value \$1_y;
#X obj 445 185 t a b;
#X obj 514 280 *;
#X obj 412 279 *;
#X text 635 547 dh20020402;
#X obj 420 401 value \$1_x;
#X obj 516 401 value \$1_y;
#X obj 473 373 unpack f f;
#X obj 420 460 value \$1_x;
#X obj 522 461 value \$1_y;
#X obj 521 436 /;
#X obj 420 435 /;
#X obj 417 337 t b b a;
#X obj 287 45 valueinit \$1_y \$3;
#X obj 629 338 value \$1_x;
#X obj 669 282 value \$1_y;
#X obj 664 315 *;
#X obj 622 373 *;
#X obj 629 258 t b b;
#X obj 639 403 +;
#X obj 639 431 sqrt;
#X obj 208 396 value \$1_x;
#X obj 304 396 value \$1_y;
#X obj 261 368 unpack f f;
#X obj 208 455 value \$1_x;
#X obj 310 455 value \$1_y;
#X obj 205 332 t b b a;
#X obj 309 430 -;
#X obj 208 430 -;
#X obj 756 537 value \$1_x;
#X obj 852 537 value \$1_y;
#X obj 756 596 value \$1_x;
#X obj 852 595 value \$1_y;
#X obj 784 303 value \$1_x;
#X obj 824 247 value \$1_y;
#X obj 819 280 *;
#X obj 777 338 *;
#X obj 784 223 t b b;
#X obj 776 368 +;
#X obj 776 396 sqrt;
#X obj 815 498 /;
#X obj 857 426 t b b;
#X obj 796 183 t b f b;
#X obj 852 569 *;
#X obj 755 571 *;
#X obj 639 459 concat abs=;
#X obj 24 106 route !xy ?xy add substract mult divide ?teta ?abs !teta
!abs rotate;
#X obj 776 425 select 0;
#X msg 785 456 0.7;
#X connect 0 0 69 0;
#X connect 2 0 8 0;
#X connect 2 1 9 0;
#X connect 3 0 5 0;
#X connect 4 0 8 0;
#X connect 4 1 9 0;
#X connect 5 0 1 0;
#X connect 8 0 3 0;
#X connect 9 0 3 1;
#X connect 10 0 13 1;
#X connect 11 0 12 1;
#X connect 12 0 16 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 14 1 12 0;
#X connect 17 0 14 0;
#X connect 17 1 11 0;
#X connect 17 1 10 0;
#X connect 19 0 26 1;
#X connect 20 0 25 1;
#X connect 21 0 26 0;
#X connect 21 1 25 0;
#X connect 24 0 21 0;
#X connect 24 1 20 0;
#X connect 24 1 19 0;
#X connect 25 0 23 0;
#X connect 26 0 22 0;
#X connect 28 0 34 0;
#X connect 29 0 33 0;
#X connect 30 0 34 1;
#X connect 30 1 33 1;
#X connect 33 0 32 0;
#X connect 34 0 31 0;
#X connect 35 0 28 0;
#X connect 35 1 29 0;
#X connect 35 2 30 0;
#X connect 37 0 40 1;
#X connect 37 0 40 0;
#X connect 38 0 39 1;
#X connect 38 0 39 0;
#X connect 39 0 42 1;
#X connect 40 0 42 0;
#X connect 41 0 37 0;
#X connect 41 1 38 0;
#X connect 42 0 43 0;
#X connect 43 0 68 0;
#X connect 44 0 51 0;
#X connect 45 0 50 0;
#X connect 46 0 51 1;
#X connect 46 1 50 1;
#X connect 49 0 44 0;
#X connect 49 1 45 0;
#X connect 49 2 46 0;
#X connect 50 0 48 0;
#X connect 51 0 47 0;
#X connect 52 0 67 0;
#X connect 53 0 66 0;
#X connect 56 0 59 1;
#X connect 56 0 59 0;
#X connect 57 0 58 1;
#X connect 57 0 58 0;
#X connect 58 0 61 1;
#X connect 59 0 61 0;
#X connect 60 0 56 0;
#X connect 60 1 57 0;
#X connect 61 0 62 0;
#X connect 62 0 70 0;
#X connect 63 0 67 1;
#X connect 63 0 66 1;
#X connect 64 0 52 0;
#X connect 64 1 53 0;
#X connect 65 0 64 0;
#X connect 65 1 63 0;
#X connect 65 2 60 0;
#X connect 66 0 55 0;
#X connect 67 0 54 0;
#X connect 68 0 1 0;
#X connect 69 0 2 0;
#X connect 69 1 4 0;
#X connect 69 2 17 0;
#X connect 69 3 49 0;
#X connect 69 4 24 0;
#X connect 69 5 35 0;
#X connect 69 7 41 0;
#X connect 69 9 65 0;
#X connect 70 0 71 0;
#X connect 70 1 63 1;
#X connect 71 0 63 1;