[LISP函数]：一元二次方程的實根

taner · 发表于 2005-11-27 14:20:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[PHP](defun rdf (a b c)
  (if (>= (- (* b b) (* 4 a c)) 0)
(list (/ (+ (- 0 b) (sqrt (- (* b b) (* 4 a c)))) (* 2 a)) (/
   (-
      (- 0 b)
      (sqrt
   (-
      (* b b)
      (* 4 a c)
   )
      )
   )
   (* 2 a)
         )
)
(prompt "\nNO REAL ROOTS!")
  )
)[/PHP]

狂刀 · 发表于 2005-11-27 22:21:10

最好对ａｂｃ变量有个说明

taner · 发表于 2005-11-27 22:24:40

最初由狂刀发布
[B]最好对ａｂｃ变量有个说明 [/B]

ax^2+bx+c=0

xyp1964 · 发表于 2005-11-27 22:43:06

[FONT=courier new](load"xyp_lib.vlx")
(defun geng (a b c)
(list (X_GENG1 A B C)
(X_GENG2 A B C)
)
)[/FONT]

twc999 · 发表于 2006-8-22 14:28:07

lisp真是无所不能呀,连求函数都可以用上它,呵呵.牛,楼主想法很不错.有新意.

海边的拾贝者 · 发表于 2006-9-1 10:54:56

呵呵，好像有个教程中举过例子。

whfdchst · 发表于 2006-12-13 11:13:24

xyp_lib.vlx函数那儿有？
是2004CAD自带的吗？

wpj83 · 发表于 2006-12-14 18:11:52

我想学lisp
不知道要看哪些方面的书籍？？

zml84 · 发表于 2006-12-16 12:09:42

看这个如何：

[FONT=courier new]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;解一元二次方程 ZML84制作于06-12-13上午
;;; ax^2+bx+c=0
;;;参数说明：
;;; a 二次项系数
;;; b 一次项系数
;;; c 常数项系数
;;;返回值：
;;; x1 根1
;;; x2 根2
;;;=====================================================
(defun jfc (a b c / d p q)
(if (= a 0)
(if (= b 0) ; 二次项和一次项系数均为零，方程无解。
(setq x1 nil
x2 nil
)
(setq x1 (* -1 (/ c b))
x2 x1
)
)
(progn
(setq d (- (* b b) (* 4 a c))
p (/ b -2.0 a)
q (/ (sqrt (abs d)) 2.0 a)
)
(if (< d 0)
(setq x1 (strcat (rtos p 2 4) "+" (rtos q 2 4) "i")
x2 (strcat (rtos p 2 4) "-" (rtos q 2 4) "i")
)
(setq x1 (+ p q)
x2 (- p q)
)
)
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;解一元二次方程    ZML84制作于06-12-13上午 
;;;    ax^2+bx+c=0 
;;;参数说明： 
;;;    a   二次项系数 
;;;    b   一次项系数 
;;;    c   常数项系数 
;;;返回值： 
;;;    x1  根1 
;;;    x2  根2 
;;;===================================================== 
(defun jfc (a b c / d p q) 
    (if        (= a 0) 
        (if (= b 0)                        ; 二次项和一次项系数均为零，方程无解。 
            (setq x1 nil 
                  x2 nil 
            ) 
            (setq x1 (* -1 (/ c b)) 
                  x2 x1 
            ) 
        ) 
        (progn 
            (setq d (- (* b b) (* 4 a c)) 
                  p (/ b -2.0 a) 
                  q (/ (sqrt (abs d)) 2.0 a) 
            ) 
            (if        (< d 0) 
                (setq x1 (strcat (rtos p 2 4) "+" (rtos q 2 4) "i") 
                      x2 (strcat (rtos p 2 4) "-" (rtos q 2 4) "i") 
                ) 
                (setq x1 (+ p q) 
                      x2 (- p q) 
                ) 
            ) 
        ) 
    ) 
    (princ) 
) 
  [/FONT]

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：一元二次方程的實根

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子