一个椭圆副程式内请教

adslwang

(defun ELL (a y b) (* a (sqrt (- 1 (/ (* y y) (* b b) 1.)))))
上面一段代码是XYP1964版主写椭圆的其中一段  请问裏面的 1.  所代表的意思是?
我把它改成1之后就变成了矩型

原码如下
(defun c:test ()
  (defun ELL (a y b) (* a (sqrt (- 1 (/ (* y y) (* b b) 1.)))))
  (setvar "osmode" 0)
  (setq a  400
b  200
y  200
dy 1
  )
  (command "pline")
  (while (<= (abs y) b)
    (setq x  (ELL a y b)
   pt (list x y)
   y  (- y dy)
    )
    (command pt)
  )
  (setq y -200)
  (while (<= (abs y) b)
    (setq x  (ELL a y b)
   pt (list (* x -1) y)
   y  (+ y dy)
    )
    (command pt)
  )
  (command "c")
  (princ)
)

ZZXXQQ

(1.)是将计算数值变成浮点数。

vlisp2012

受教了，多谢Z版！！

adslwang

ZZXXQQ 发表于 2012-11-13 21:07
(1.)是将计算数值变成浮点数。

谢谢Z版拨空教导！
浮点数是不是指的是数字带有小数点的值?
因为看不懂 1. 的变化在那边，或者有例子可以学习嘛！
请Z版或路过的高手指点一下，谢谢！

adslwang

adslwang 发表于 2012-11-14 19:58
谢谢Z版拨空教导！
浮点数是不是指的是数字带有小数点的值?
因为看不懂 1. 的变化在那边，或者有例子可 ...

好的，谢谢版主