[求助]：关于子程序函数

ssgmyvvfb · 发表于 2004-12-19 22:56:31

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

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

×

调用方法：（area3 a b c）返回是三角形的面积
请那个高手帮我编一个好吗？有急用啊，

ll_j · 发表于 2004-12-19 23:36:03

这里的a、b、c是什么？点？边长？直线实体？或...

xyp1964 · 发表于 2004-12-20 00:05:12

[php]
(defun area3 (a b c / bzc)
  (setq bzc (/ (+ a b c) 2)
s (sqrt (* bzc (- bzc a) (- bzc b) (- bzc c)))
  )
  s
)
[/php]

ssgmyvvfb · 发表于 2004-12-20 09:58:45

a b c 是代表三角形的三条边

zk_hisen · 发表于 2004-12-20 12:28:06

3楼编的不错！

mkhsj927 · 发表于 2004-12-20 16:08:30

a、b、c应该是三角形的3个顶点吧？知道3顶点之后求面积很简单
知道3边长度了就更简单了！

xyp1964 · 发表于 2004-12-20 21:01:31

最初由 mkhsj927 发布
[B]a、b、c应该是三角形的3个顶点吧？知道3顶点之后求面积很简单
知道3边长度了就更简单了！ [/B]

你也知道海伦公式？！或自创了新公式？

ssgmyvvfb · 发表于 2004-12-21 10:32:25

(defun area3 (a b c)
(setq s (* (+ a b c) 0.5))
(sqrt (* s (-s a) (-s b) (-s c)))
)
帮我看一下这个代码错在那里，
我看不出去里有错的，执行就是计算不也三角形的面积
请大家帮一下

ll_j · 发表于 2004-12-21 10:52:15

减号与s写在一起了。

ssgmyvvfb · 发表于 2004-12-21 12:19:12

上面那个我打错了
(defun area3 (a b c)
(setq s (* (+ a b c) 0.5))
(sqrt (* s (- s a) (- s b) (- s c)))
)
帮我看一下这个代码错在那里，
我看不出去里有错的，执行就是计算不也三角形的面积
请大家帮一下

zxq0220 · 发表于 2004-12-21 13:14:02

程序没错。只是当长边不大于另两边之合时开方为负数出错。

xyp1964 · 发表于 2004-12-21 14:14:15

最初由 ssgmyvvfb 发布
[B]上面那个我打错了
(defun area3 (a b c)
(setq s (* (+ a b c) 0.5))
(sqrt (* s (- s a) (- s b) (- s c)))
)
帮我看一下这个代码错在那里，
我看不出去里有错的，执行就是计算不也三角形的面积
请大家帮一... [/B]

试试：
格式实例：(area3 6 4 5)
[php]
(defun area3 (a b c / s ss)
  (setq s (* (+ a b c) 0.5))
  (if (and (>= s a) (>= s b) (>= s c))
(setq ss (sqrt (* s (- s a) (- s b) (- s c))))
(princ "\n老大!这是三角形吗?")
  )
  (if ss
(progn
   (princ "三角形面积＝ ")
   (princ ss)
)
  )
  (princ)
)
[/php]

戴戴 · 发表于 2004-12-21 20:07:43

好样的，顶顶！！！

czg09180274 · 发表于 2004-12-21 20:36:12

子程序没有错，不知你引用时的方法是否正确呢，
在主程序内引用子程序时，变量与子程序名之间只能用空格分开而不能用括号分开括起来的，
如：
你的主程序三角形的三条边分别为AA，BB，CC，引用此子程序时格式是：
（AREA3 AA BB CC）
而不能是：（AREA3 （AA BB CC））的

xyp1964 · 发表于 2004-12-22 10:29:29

还是分步输入边长为好：
命令：A3
[php]
(defun c:A3 (/ s ss)
  (setq a (ureal 1 "" "\n边长1＝"a)
b (ureal 1 "" "\n边长1＝"b)
c (ureal 1 "" "\n边长1＝"c)
)
  (setq s (* (+ a b c) 0.5))
  (if (and (>= s a) (>= s b) (>= s c))
(setq ss (sqrt (* s (- s a) (- s b) (- s c))))
(alert "\n老大!有这样的三角形吗?")
  )
  (if ss
(progn
   ;(strcat "三角形面积＝ " ss)
   ;(princ ss)
   (alert (strcat "三角形面积＝ " (rtos ss 2)))
)
  )
  (princ)
)
(defun ureal (bit kwd msg def / inp)
  (if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
   bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
inp
def
  )
)
[/php]

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

[求助] [求助]：关于子程序函数

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

相关帖子