FB: Enneper10 parametric surface - load 3DPlot.lsp and enter: (defu
Vytištěno z: CAD Fórum
Kategorie: ARKANCE/CAD Studio
Název fóra: RSS kanály
Popis fóra: Automaticky publikované informace z dalších web služeb
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=24940
Datum vytištění: 26.dub.2026 v 22:59
Téma: FB: Enneper10 parametric surface - load 3DPlot.lsp and enter: (defu
Odeslal: CAD Studio Facebook
Předmět: FB: Enneper10 parametric surface - load 3DPlot.lsp and enter: (defu
Datum odeslání: 30.zář.2017 v 18:46
 Enneper10 parametric surface - load 3DPlot.lsp and enter:
(defun fEnneper10 (u v)
(setq k 8 t 0)
(list
(- (* k u (cos (+ v t))) (* (/ (expt u (- (* 2.0 k) 1)) 6.0) (cos (+ (* (- (* 2.0 k) 1) v) t))))
(- (* -1 k u (sin (+ v t))) (* (/ (expt u (- (* 2.0 k) 1)) 6.0) (sin (+ (* (- (* 2.0 k) 1) v) t))))
(* (expt u k) (cos (+ (* k v) t)))
))
(setq nods (3Dplot fEnneper10 0 1.15 (/ 1.15 120) (- pi) pi (/ (* 2 pi) 120)))
http://www.cadstudio.cz/en/apps/3dplot/Viz https://www.facebook.com/155167197846046/posts/1815026541860095 - pokračování... ------------- https://www.facebook.com/CADstudio - CAD Studio Facebook - zústaňte v kontaktu |