Protínání přímek – Visual Basic – Fórum – Programujte.com

Prosím o radu
Na výpočet průsečíku přímek, které svírají s osou X úhel menší než 45 stupňů jsem použil tento kód:

X = Abs(dStep1.Y) + Abs(dStep2.Y)

            pom = Abs(Control2.Y - Control1.Y) / X

            Y = dStep1.Y * pom

            X = dStep1.X * pom

            lLoc.Y = Y + Control1.Y

            lLoc.X = X + Control2.X

X = Abs(dStep1.X) + Abs(dStep2.X)

            pom = Abs(Control2.X - Control1.X) / X

            Y = dStep1.Y * pom

            X = dStep1.X * pom

            lLoc.Y = Y + Control1.Y

            lLoc.X = X + Control1.X

To montir : Teda chci dodat, že samozřejmě funguje, ale špatně. Průsečík je posunutý a já nedokážu pochopit proč.

rozdil vidim tady: pom = Abs(Control2.X - Control1.X) / X
u prvni verze mas Y Y a pak to X ale tady mas X X / X

To KIIV :
Ne, v tom problém není, X je v tomto případě jen rozdíl mezi bodem YY, nebo XX. Jenže v prvním případě se přímky střetávají v ostrém uhlu a v druhém v tupém. V prvním případě je step vždy menší než 1 a v druhém je jeden ze stepů roven 1.

a co je tedy pom? nemam predstavivost pro nicnerikajici nazvy ...
jde o to ze kdyz mas nejaky mensi uhel tak odectes nejaky zahadny Y od jinyho podobnyho zahadnyho Y a vydelis jakymsi X ktere ziskavas z jinych Y

jakej je tedy princip algoritmu? nebo jeste lepe co je to za algoritmus? (a hlavne co mas, znas a co neznas.. )

Večer se o tom rozepíšu, teď mi dochází baterie. Kdyby jsi byl tak laskav a podíval se na tohle vlákno zítra.

To KIIV :
Bod 1:
Jde mi o to vy počítat společný bod dvou linek(přímek)
Bod 2:
Známé promněnné jsou X1,Y1 a X2,Y2 obou linek. Další známé jsou koeficienty prodlužování obou linek po osách X a Y. Koeficienty prodlužování jsou získávány v podstatě stejným výpočtem jeko to při prodlužování linek provádí Windows. Minimálně jeden z koeficientů je vždy 1, oba se rovnají 1 pokud se linka prodlužuje v úhlu 45°, pokud se prodlužuje po jedné z os tak je jeden roven 0.
Bod 3:
Neznámý je případný společný bod obou linek.

            ' X a Y jsou lokální promnenne

            'dStep1.Y je koeficient prodluzovani Linky1 po ose Y

            'dStep2.Y je koeficient prodluzovani Linky2 po ose Y

            X = Abs(dStep1.Y) + Abs(dStep2.Y)

            'pom je lokalni promnenna

            'Control1.Y , Control1.X a Control2.Y , Control2.X jsou body na obou linkach

            'srovnane na stejnou uroven na jedne z os, v tomto pripade na ose X, takze rozdilna

            'je mezi linkama(body Control) pouze hodnota Y

            pom = Abs(Control2.Y - Control1.Y) / X

            Y = dStep1.Y * pom

            X = dStep1.X * pom

            'lLoc je vysledny bod protnuti obou Linek

            lLoc.Y = Y + Control1.Y

            lLoc.X = X + Control2.X