C
crmaris
Guest
Dobrý deň. Toto je môj prvý príspevok do tejto komunity. Problém i tvár je nasledovať. Navrhol som v sieti simulačný program v Delphi. Povedzme, že mám uzol (root) a dva detské uzly. Keď chcem vedieť, čo dieťa vľavo a to, čo dieťa má pravdu (aj už poznajú súradnice X, Y koreňa a dve detské), ja používam nasledujúci kód v Delphi. Moja otázka je, ako musím zmeniť nasledujúci kód, aby sa lepšie orientovať viac podriadených uzlov s odkazom node.Thanks jeden koreň. Funkcia Orientácia (x1, y1, x2, y2, px, py: Double): Integer; var Orin: Dvojlôžkové, začne (* Lineárny faktorom 3 body *) Orin: = (x2 - x1) * (PY - y1) - (px - x1) * (y2 - y1), v prípade Orin> 0.0 potom Výsledok: = +1 (* Orientaion je na pravej strane *) if Orin <0.0 potom Výsledok: = -1 (* Orientaion je na ľavej strane *) else vysledok: = 0; (* Orientaion je neutrálna, ak je výsledok 0 *) end;