AutoCad - Funciones

Buenas, alguien sabe como graficar una funcion???
Ejemplo: y = Sen (x+1) ; y = x*x+3x-2 ; etc.

gracias

Bueno amigo afortunadamente para ti yo tengo una rutina LISP que grafica cualquier funcion... La colocare aca para que la copies y la pegues en el bloq de notas, esta rutina de paso le sirve a MARC para generar la elipse con mejor resolucion...

Un saludo de SpeedCAD... :-)

Como siempre SpeedCAD, tus aportes son siempre muy provechosos!!!

Una vez mas, muchas gracias!!!

(defun intr ( / mens fun fundef y1)
(if (= funant nil) (setq funant "" ))
(setq mens
(strcat "expresion de la funcion en x: <" funant "> : "))
(if (= "" (setq fun (getstring t mens))) (setq fun funant))
(terpri)

Cualquier duda sobre la rutina solo pregunta por si no funciona...

Un saludo de SpeedCAD... :-)
(setq fundef (strcat " (defun curvaf (x) " fun ") ") )
(eval (read fundef))
(initget 7)
(setq prx (getreal "precision en x: ")) (terpri)
(setq xi (getreal "inicio curva en x: ")) (terpri)
(setq x1 xi)
(setq y1 (curvaf x1))
(setq p1 (list x1 y1))
(setq funant fun)
(setq xf (getreal "final curva en x: ")) (terpri)
(setq n (fix ( / (- xf xi) prx)))
)

(defun dib ( / x2 y2 p2)
(repeat n
(setq x2 (+ x1 prx))
(setq y2 (curvaf x2))
(setq p2 (list x2 y2))
(command "pline" p1 p2 "")
(setq x1 x2 p1 p2))
(command "zoom" "e")
)

(defun ult ( / p2 yf)
(setq yf (curvaf xf))
(setq p2 (list xf yf))
(command "pline" p1 p2 "")
(command "zoom" "e")
)

(defun c:curva ( / xi xf prx p1 n x1)
(setvar "cmdecho" 0)
(intr)
(dib)
(ult)
(setvar "cmdecho" 1)(prin1)
)

ahora si...

(defun intr ( / mens fun fundef y1)
(IF (= funant nil) (SETQ funant "" ))
(setq mens
(strcat "expresion de la funcion en x: <" funant "> : "))
(if (= "" (setq fun (getstring t mens))) (setq fun funant))
(terpri)
(setq fundef (strcat " (DEFUN CURVAF (X) " FUN ") ") )
(EVAL (READ FUNDEF))
(INITGET 7)
(SETQ PRX (GETREAL "PRECISION EN X: ")) (TERPRI)
(SETQ Xi (GETREAL "INICIO CURVA EN X: ")) (TERPRI)
(SETQ X1 Xi)
(SETQ Y1 (CURVAF X1))
(SETQ P1 (LIST X1 Y1))
(SETQ FUNANT FUN)
(SETQ XF (GETREAL "FINAL CURVA EN X: ")) (TERPRI)
(SETQ N (FIX ( / (- XF Xi) PRX)))
)

(DEFUN DIB ( / X2 Y2 P2)
(REPEAT N
(SETQ X2 (+ X1 PRX))
(SETQ Y2 (CURVAF X2))
(SETQ P2 (LIST X2 Y2))
(COMMAND "PLINE" P1 P2 "")
(SETQ X1 X2 P1 P2))
(command "zoom" "e")
)

(DEFUN ULT ( / P2 YF)
(SETQ YF (CURVAF XF))
(SETQ P2 (LIST XF YF))
(COMMAND "PLINE" P1 P2 "")
(command "zoom" "e")
)

(DEFUN C:CURVA ( / Xi XF PRX P1 N X1)
(SETVAR "CMDECHO" 0)
(INTR)
(DIB)
(ULT)
(SETVAR "CMDECHO" 1)(PRIN1)
)