metalu.net
/
chose


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282
							#N canvas 4 -1020 1105 998 10;
#X obj 47 348 -;
#X obj 57 318 t b f;
#X obj 117 371 t b f;
#X obj 117 396 *;
#X obj 257 417 t b f;
#X obj 257 446 -;
#X obj 187 348 -;
#X obj 197 318 t b f;
#X obj 257 369 t b f;
#X obj 257 396 *;
#X obj 547 511 /;
#X obj 726 785 >= 0;
#X obj 763 785 <= 1;
#X obj 726 811 &&;
#X obj 752 551 -;
#X obj 762 521 t b f;
#X obj 822 714 /;
#X obj 822 664 t b f;
#X obj 752 634 t b f;
#X obj 742 664 +;
#X obj 752 581 t b f;
#X obj 752 611 *;
#X obj 822 799 >= 0;
#X obj 856 799 <= 1;
#X obj 822 826 &&;
#X obj 822 769 t f f;
#X obj 822 877 &&;
#X obj 822 851 t b f;
#X text 349 243 N=(b_1 -a_1 )*(d_2 -c_2 )-(b_2 -a_2 )*(d_1 -c_1 );
#X text 220 541 s=((c_1 -a_1 )*(d_2 -c_2 )-(c_2 -a_2 )*(d_1 -c_1 ))/N
;
#X text 34 243 (c_1 -a_1 )*(d_2 -c_2 )-(c_2 -a_2 )*(d_1 -c_1 );
#X text 672 446 t=(a_1 -c_1 +s*(b_1 -a_1))/(d_1 -c_1);
#X text 31 92 line segment S_1 is given by the points A (a_1 /a_2)
and B(b_1 /b_2) \, line segment S_2 by C and D.;
#X text 606 885 N = 0 --> S_1 || S_2;
#X text 110 663 x_s = a_1 + s*(b_1 - a_1);
#X text 342 641 y_s = a_2 + s*(b_2 - a_2);
#X text 771 931 0 <= s <= 1 AND 0 <= t <= 1 --> S lies on AB and CD.
;
#X text 542 63 (c)2011 Marian Weger /part of GIL/;
#X obj 57 298 r \$0-a_1;
#X obj 197 298 r \$0-a_2;
#X obj 762 501 r \$0-a_1;
#X obj 752 481 r \$0-b_1;
#X obj 822 907 outlet crossing;
#X text 31 17 gil_x_line_segments;
#X obj 48 145 inlet A;
#X obj 168 145 inlet B;
#X obj 288 145 inlet C;
#X obj 408 145 inlet D;
#X obj 48 166 unpack f f;
#X obj 168 166 unpack f f;
#X obj 288 166 unpack f f;
#X obj 408 166 unpack f f;
#X obj 48 188 s \$0-a_1;
#X obj 105 188 s \$0-a_2;
#X obj 408 188 s \$0-d_1;
#X obj 465 188 s \$0-d_2;
#X obj 345 188 s \$0-c_2;
#X obj 288 188 s \$0-c_1;
#X obj 225 188 s \$0-b_2;
#X obj 168 188 s \$0-b_1;
#X obj 47 278 r \$0-c_1;
#X obj 117 348 -;
#X obj 127 318 t b f;
#X obj 117 278 r \$0-d_2;
#X obj 127 298 r \$0-c_2;
#X obj 187 278 r \$0-c_2;
#X obj 257 348 -;
#X obj 267 318 t b f;
#X obj 257 278 r \$0-d_2;
#X obj 267 298 r \$0-c_2;
#X obj 347 348 -;
#X obj 357 318 t b f;
#X obj 417 371 t b f;
#X obj 417 396 *;
#X obj 557 417 t b f;
#X obj 557 446 -;
#X obj 487 348 -;
#X obj 497 318 t b f;
#X obj 557 369 t b f;
#X obj 557 396 *;
#X obj 357 298 r \$0-a_1;
#X obj 497 298 r \$0-a_2;
#X obj 417 348 -;
#X obj 427 318 t b f;
#X obj 417 278 r \$0-d_2;
#X obj 427 298 r \$0-c_2;
#X obj 557 348 -;
#X obj 567 318 t b f;
#X obj 347 278 r \$0-b_1;
#X obj 487 278 r \$0-b_2;
#X obj 557 278 r \$0-d_1;
#X obj 567 298 r \$0-c_1;
#X obj 682 551 -;
#X obj 692 521 t b f;
#X obj 692 501 r \$0-c_1;
#X obj 682 481 r \$0-a_1;
#X obj 822 633 -;
#X obj 832 603 t b f;
#X obj 822 563 r \$0-d_1;
#X obj 832 583 r \$0-c_1;
#X obj 726 761 t f f;
#X text 829 741 t;
#X text 555 525 s;
#X obj 547 541 t f f f;
#X obj 196 758 -;
#X obj 206 728 t b f;
#X obj 206 708 r \$0-a_1;
#X obj 196 688 r \$0-b_1;
#X obj 244 794 *;
#X obj 254 768 t b f;
#X obj 294 614 t f f;
#X obj 254 847 t b f;
#X obj 244 873 +;
#X obj 254 827 r \$0-a_1;
#X obj 384 743 -;
#X obj 394 713 t b f;
#X obj 374 794 *;
#X obj 384 768 t b f;
#X obj 384 847 t b f;
#X obj 374 873 +;
#X obj 384 827 r \$0-a_1;
#X obj 384 673 r \$0-b_2;
#X obj 394 693 r \$0-a_2;
#X obj 557 481 t b f f;
#X obj 596 908 == 0;
#X obj 596 928 outlet parallel;
#X obj 374 933 pack f f;
#X obj 374 903 t b f;
#X obj 374 955 outlet S;
#X text 68 949 the coordinates of the intersection S (s_1 / s_2);
#X text 31 47 calculates the intersection point of two straight lines
given by AB and CD \, and estimates \, if the intersection lies within
the given line segments S_1 and S_2;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 4 1 5 1;
#X connect 5 0 10 0;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X connect 7 1 6 1;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 9 0 4 0;
#X connect 10 0 103 0;
#X connect 11 0 13 0;
#X connect 12 0 13 1;
#X connect 13 0 26 0;
#X connect 14 0 20 0;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 16 0 25 0;
#X connect 17 0 16 0;
#X connect 17 1 16 1;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 16 0;
#X connect 20 0 21 0;
#X connect 20 1 21 1;
#X connect 21 0 18 0;
#X connect 22 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 0;
#X connect 25 0 22 0;
#X connect 25 1 23 0;
#X connect 26 0 42 0;
#X connect 27 0 26 0;
#X connect 27 1 26 1;
#X connect 38 0 1 0;
#X connect 39 0 7 0;
#X connect 40 0 15 0;
#X connect 41 0 14 0;
#X connect 44 0 48 0;
#X connect 45 0 49 0;
#X connect 46 0 50 0;
#X connect 47 0 51 0;
#X connect 48 0 52 0;
#X connect 48 1 53 0;
#X connect 49 0 59 0;
#X connect 49 1 58 0;
#X connect 50 0 57 0;
#X connect 50 1 56 0;
#X connect 51 0 54 0;
#X connect 51 1 55 0;
#X connect 60 0 0 0;
#X connect 61 0 2 0;
#X connect 62 0 61 0;
#X connect 62 1 61 1;
#X connect 63 0 61 0;
#X connect 64 0 62 0;
#X connect 65 0 6 0;
#X connect 66 0 8 0;
#X connect 67 0 66 0;
#X connect 67 1 66 1;
#X connect 68 0 66 0;
#X connect 69 0 67 0;
#X connect 70 0 73 0;
#X connect 71 0 70 0;
#X connect 71 1 70 1;
#X connect 72 0 73 0;
#X connect 72 1 73 1;
#X connect 73 0 75 0;
#X connect 74 0 75 0;
#X connect 74 1 75 1;
#X connect 75 0 123 0;
#X connect 76 0 79 0;
#X connect 77 0 76 0;
#X connect 77 1 76 1;
#X connect 78 0 79 0;
#X connect 78 1 79 1;
#X connect 79 0 74 0;
#X connect 80 0 71 0;
#X connect 81 0 77 0;
#X connect 82 0 72 0;
#X connect 83 0 82 0;
#X connect 83 1 82 1;
#X connect 84 0 82 0;
#X connect 85 0 83 0;
#X connect 86 0 78 0;
#X connect 87 0 86 0;
#X connect 87 1 86 1;
#X connect 88 0 70 0;
#X connect 89 0 76 0;
#X connect 90 0 86 0;
#X connect 91 0 87 0;
#X connect 92 0 19 0;
#X connect 93 0 92 0;
#X connect 93 1 92 1;
#X connect 94 0 93 0;
#X connect 95 0 92 0;
#X connect 96 0 17 0;
#X connect 97 0 96 0;
#X connect 97 1 96 1;
#X connect 98 0 96 0;
#X connect 99 0 97 0;
#X connect 100 0 11 0;
#X connect 100 1 12 0;
#X connect 103 0 110 0;
#X connect 103 1 100 0;
#X connect 103 2 21 0;
#X connect 104 0 108 0;
#X connect 105 0 104 0;
#X connect 105 1 104 1;
#X connect 106 0 105 0;
#X connect 107 0 104 0;
#X connect 108 0 112 0;
#X connect 109 0 108 0;
#X connect 109 1 108 1;
#X connect 110 0 109 0;
#X connect 110 1 116 0;
#X connect 111 0 112 0;
#X connect 111 1 112 1;
#X connect 112 0 126 0;
#X connect 113 0 111 0;
#X connect 114 0 117 0;
#X connect 115 0 114 0;
#X connect 115 1 114 1;
#X connect 116 0 119 0;
#X connect 117 0 116 0;
#X connect 117 1 116 1;
#X connect 118 0 119 0;
#X connect 118 1 119 1;
#X connect 119 0 127 0;
#X connect 120 0 118 0;
#X connect 121 0 114 0;
#X connect 122 0 115 0;
#X connect 123 0 10 0;
#X connect 123 1 10 1;
#X connect 123 2 124 0;
#X connect 124 0 125 0;
#X connect 126 0 128 0;
#X connect 127 0 126 0;
#X connect 127 1 126 1;