adslwang 发表于 2012-11-13 20:53:21

一个椭圆副程式内请教

(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 a400
b200
y200
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 发表于 2012-11-13 21:07:31

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

vlisp2012 发表于 2012-11-14 19:01:25

受教了，多谢Z版！！

adslwang 发表于 2012-11-14 19:58:06

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

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

adslwang 发表于 2012-11-14 22:03:29

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

好的，谢谢版主
页: [1]
查看完整版本: 一个椭圆副程式内请教