Dudas sobre unas funciones de internet
4 participantes
Página 1 de 1.
Dudas sobre unas funciones de internet
Hola muchachos como están.
Tengo una duda con estas funciones de la pagina de Togores.
http://www.togores.net/vl/curso/lisp/bases/funciones/usuario/defun-1/redondeo
Aparecen tres funciones de redondeo.
Pero cuando trato de aplicar la función cl-round me dice que que ; error: no function definition: RND
Mi duda es si ahí en vez de ser rnd debería llevar la función round o debe ser otra función.
Gracias.
Tengo una duda con estas funciones de la pagina de Togores.
http://www.togores.net/vl/curso/lisp/bases/funciones/usuario/defun-1/redondeo
Aparecen tres funciones de redondeo.
Pero cuando trato de aplicar la función cl-round me dice que que ; error: no function definition: RND
Mi duda es si ahí en vez de ser rnd debería llevar la función round o debe ser otra función.
Gracias.
carlosmgilp- Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 42
Localización : Venezuela
Re: Dudas sobre unas funciones de internet
Me imagino que debe ser
(defun round (num)
(read (rtos num 2 0))
) ;_ fin de defun
Y basta con probar.
(defun round (num)
(read (rtos num 2 0))
) ;_ fin de defun
Y basta con probar.
Re: Dudas sobre unas funciones de internet
Hola hermano como estas.
Si lo probe, pero nada como consultar a los que saben mas. Jejeje.
Gracias.
Si lo probe, pero nada como consultar a los que saben mas. Jejeje.
Gracias.
carlosmgilp- Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 42
Localización : Venezuela
Re: Dudas sobre unas funciones de internet
Buenos dias, Mas vale tarde que nunca
Tal vez ya descifraste el problema, pero como sea, tienes que cambiar el nombre de la funcion de rnd a round
(defun cl-round (num / tmp)
(if
(and
(not (evenp (setq tmp (round num))))
(= (abs (rem num 1)) 0.5)
)
(if (minusp tmp)(setq tmp (1+ tmp))(setq tmp (1- tmp)))
) ;_ fin de if
tmp
) ;_ fin de defun
Tal vez ya descifraste el problema, pero como sea, tienes que cambiar el nombre de la funcion de rnd a round
(defun cl-round (num / tmp)
(if
(and
(not (evenp (setq tmp (round num))))
(= (abs (rem num 1)) 0.5)
)
(if (minusp tmp)(setq tmp (1+ tmp))(setq tmp (1- tmp)))
) ;_ fin de if
tmp
) ;_ fin de defun
enrique calderon- Mensajes : 12
Fecha de inscripción : 25/01/2017
Re: Dudas sobre unas funciones de internet
Hola Enrique gracias por tu colaboración.
Si así siempre lo hice, fue cuestión de confirmar y que no quedaran dudas. Jejejeje.
Mil gracias.
Si así siempre lo hice, fue cuestión de confirmar y que no quedaran dudas. Jejejeje.
Mil gracias.
carlosmgilp- Mensajes : 149
Fecha de inscripción : 17/03/2016
Edad : 42
Localización : Venezuela
Re: Dudas sobre unas funciones de internet
Cualquier pregunta de internet recivira mil respuestas jajaja los de la generacion del milenio nacimos dentro del internet
Temas similares
» Hola a todos me podriais ayudar con un lisp que detectara la interseccion de unas lineas con una polilinea?
» Consulta sobre cuadro
» Consulta sobre cuadro
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|