CAD tip # 10238:

Pomocí LISP utility 3DPlot ( Download) nemusíte vytvářet jen syrově matematické plochy, ale vhodnou volbou matematické funkce můžete vygenerovat i docela srdcervoucí modely. Nikdy nevíte, kdy se vám můžou hodit...

Načtěte 3DPLOT do AutoCADu (APLČTI) a poté zadejte následující LISP funkci (stačí překopírovat na příkazový řádek AutoCADu):

(defun fXYHeart (u v)
 (list
  (* 16.0 (sin u)(sin u)(sin u) (- 1.0 (* v v v)))
  (* (- (* 13.0 (cos u)) (* 5.0 (cos (* 2.0 u))) (* 2.0 (cos (* 3.0 u))) (cos (* 4.0 u)))  (- 1.0 (* v v v)) )
  (* v 3.0)
))

(setq nods (3DPlot fXYHeart (- pi) pi (/ (* 2 pi) 50) -0.999 0.999 (/ 2.0 50)))

Výsledný 3D model srdce můžete ještě vyhladit pomocí _MESHSMOOTH, přiřadit vhodný materiál (zde Glazovaná metalíza) a vyrendrovat výsledek:

klikněte pro větší

Podobným způsobem lze matematickým výrazem vygenerovat tvar srdce v Inventoru nebo Fusionu. Jako "Křivku výrazu" zadejte:

x(t) = sin(t)*sin(t)*sin(t)
y(t) = (13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t))/16

Bude vytvořen 3D náčrt s obrysovou (půl)křivkou tvaru srdce, kterou můžete dotvořit ozrcadlením a vytažením (viz Heart.ipt v Knihovně bloků):