Dobrý den,

chtěl bych se zeptat jestli někdo umí vysvětlit kreslení technických křivek v Cadu pomocí programu udělaným v Lispu?

(defun C:cyklo()
  (setq r(getreal"poloměr tvořící kružnice:"))
  (setq d(getreal"vzdálenost bodu:"))
  (setq t1 -2)
  (setq t2 4)
  (setq int (/ (- t2 t1) 100.0))
  (command "úsečka" "40,50" "400,50" "")
  (setq a t1)
  (setq x (-(* r a)(* d (sin a))))
  (setq y (- r (* d (cos a))))
  (setq x (+ x 40))
  (setq y (+ y 50))
  (command "bod" (list x y))
  (repeat 250
    (setq a (+ int a))
    (setq x (-(* r a)(* d (sin a))))
    (setq y (- r(* d(cos a))))
    (setq x (+ x 40))
    (setq y (+ y 50))
    (command "úsečka" "@" (list x y) "")
    )
  (command "regen")
  )

tohle je program na kreslení cykloidy,ale vůbec nevím jak se k tomu došlu.Příkazy znám ale nevim jak se v tomto případě postupuje.Myslím to ke vstahu k rovnicím přímek..mám ještě dělat hypocykloidu,epicykloidu,evolventu,archimedovu spirálu,a sinusovku...

Pokusím se o okomentování:

(defun C:cyklo() ;příkaz definice uživatelské funkce cyklo
  (setq r(getreal"poloměr tvořící kružnice:")) ; vstup a přiřazení poloměru
  (setq d(getreal"vzdálenost bodu:")) ; vstup a přiřazení d
  (setq t1 -2) ; nastavení počátečního úhlu - já bych tam dal asi 0
  (setq t2 4) ; nastavení koncového úhlu - já bych tam dal 2*PI
  (setq int (/ (- t2 t1) 100.0)) ; nastavení kroku výpočtu
  (command "úsečka" "40,50" "400,50" "") ;nakreslení odvalovací úsečky
  (setq a t1) ;nastavení úhlu na dolní mez
  (setq x (-(* r a)(* d (sin a)))) ;výpočet x-ové souřadnice prvního bodu
  (setq y (- r (* d (cos a)))) ;výpočet y-ové souřadnice prvního bodu
  (setq x (+ x 40)) ; posunutí x-ové souřadnice vzhledem k nakreslené odvalovací úsečce
  (setq y (+ y 50)) ; dtto pro y
  (command "bod" (list x y)) ;nakreslení bodu
  (repeat 250 ;začátek cyklu (ale proč 250?)
    (setq a (+ int a)) ;zvětšení úhlu o nastavený přírustek
    (setq x (-(* r a)(* d (sin a)))) ; výpočet x-ové souřadnice
    (setq y (- r(* d(cos a)))) ;výpočet y-ové souřadnice
    (setq x (+ x 40)) ;posunutí (asi pro názornost rozepsáno do 2 příkazů)
    (setq y (+ y 50)) ; posun y
    (command "úsečka" "@" (list x y) "") ;nakreslení úsečky z předchozího bodu do aktuálního
    ) ;konec cyklu
  (command "regen") ;regenerace "pro jistotu"
  ) ;konec definice funkce

Jinak kód je značně jednoduchý a nijak neošetřuje chybové stavy. Odvalovací úsečku bych asi kreslil radši podle zadaného poloměru kružnice.
A ještě poznámka. Až budete psát pro další křivky, uvědomte si, že AutoCAD umožňuje zadání bodů v polárních souřadnicích a pro některé křivky jsou rovnice v polárním vyjádření jednodušší.

Jenže já už opravdu nevím, co by mohlo být návodnější, než okomentovaný kód.
Jestli chcete postup tak asi:

1. Zjistit si definici kreslené křivky a její rovnice (nejlépe) v parametrickém tvaru.

2. Rozhodnout o vstupních parametrech úlohy, případně o konstantách a rozsahu řešení.

3. Modifikovat vzorovou úlohu.