Dobrý deň.
Chcel by som poradiť ohľadom vykreslenia npr. trojuholníka v lispe.
Štandardne, keď chcete nakresliť trojuholník tak potrebujete (v mojom prípade) tri dĺžky strán. Lenže ako to povedať lispu aby to nakreslil.
Keď to štandardne kreslím, tak si dám priamku a potom z jej koncov urobím kružnice a ich "priesečník" je vrchol. Ako v lispe zadať (získať) priesečník kružníc. A nevýhodou je, že sú dva! Ošetriť by sa to dalo, že nech berie len z + "y" osi.
Vopred ďakujem za rady.

3úhelník, který má základnu B1-B2 a vrchol B3: první bod je ýchozí=B1, druhý je B2 (úsečka _B1_B2_ ve směru osy X), třetí je B3 (ve směru osy Y), který získáte jako průsečík  kružnice k1<B1,r1> a k2<B2,r2>. Při zadávání (dle Vašeho požadavku délek úseček r1 a r2) tam bude dotaz, zda se to má vytvořit buď v kvadrátu I / II (čili pro kladné Y) anebo v kvadrátu III / IV (čili pro záporné Y). Ale jak se hledá v lispu průsečík 2 kružnic - to zatím ještě ani já nevím  budeme muset počkat na fundovanější radu. Ale docela pravděpodobně už tohle někde někdo někdy má sepsaný v úhledném lispu...
Ferdinand2008-03-11 22:53:56

Je třeba zapojit analytickou geometrii a spočíst neznámý úhel - např.:
 
 (setq  obv (/ (+ distA distB distC) 2.0)  tang (sqrt(/(*(- obv distA)(- obv distB))(* obv (- obv distC)))) )
 
Hotová LISP utilitka "TROJUH3" je zde v příloze, zdrojový tvar LISPu je na BBS (VIP):
uploads/20080311_232934_TROJUH3.VLX

Dobrý deň.
Ak by som niekoho mohol poprosiť, kukli by ste sa mi na štvoruholník?
Čo by to malo robiť:
Do dcl panela nahádžete 4 strany štvoruholníka a potom zadáte uhlopriečky u1 a u2.
U1 a u2 by malo dopočítať tak aby na nich bola rovnaká chyba. Nakoniec to vykreslí. Výhodné to je pre štvorcové stropné otvory.
A ešte sa chcem spýtať ako sa dá dať v tom dcl panely obrázok nabok. Teraz je pod vkladanými údajmi.
Ak sa vám chce tak mi prosím vás napíšte kde robím chyby.

na stiahnutie tu:

20080320_093244_Štvoruholnik.rar

alebo
http://uploaded.to/?id=zuxa94

Vopred Ďakujem

Určitě by bylo potřeba nějak inicializovat ty "set_tile" proměnné - jinak (rtos) hned skončí chybou. Plus chybí defun té volané funkce "(vypočítej)".
 
Obrázek na stranu (teď je nějaký obrovský) dáte snadno - do té druhé "row" přidejte další "column".