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 pokračování...