grafica del seno muy pequeña

[Anonymous]

hola amigos al fin pude hacer una rutina del seno pero queda muy baja. Paso el código :

;; seno

(defun c:primerprograma ( / Nn pa y )

(setvar "pdmode" 35) ; mejor visualizacición
(setvar "pdsize" 0.0002)

(setq Nn (getint "\ningrese num de iteraciones: "))

(setq pa 0.0); valor inicial del angulo

(repeat Nn

(setq y ( * 20 (sin (/ (* pa pi) 180)))); seno en radianes

(command "_point" (list pa y ))

(setq pa ( + pa 1.0))

); end repeat

); end defun

(alert "ingresar: primerprograma, para iniciar")

[j.palmeL29YX · Accepted solution]

Here your code works fine.

>> click <<

Please upload your dwg file which is shown in the pic above.

[Anonymous]

Bueno gracias por lo menos sé que el código está bien pero yo al pico máximo lo multiplico por 20 y se vé muy baja....ese es mi problema.

[j.palmeL29YX · Accepted solution]

Por favor, publique su archivo dwg aquí.

[Anonymous]

seno terminado amigo muchas gracias lo que pasa que recién estoy aprendiendo la programación en Lisp.....

                                gracias

                              pablo