CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 2241|回复: 3

[开发] 请教lisp高手

[复制链接]
发表于 2008-8-20 12:07 | 显示全部楼层 |阅读模式
请教一个lisp里面计算精度的问题7 A! ]+ B' e( U% Z) h8 @
如:
  a, l* i+ Y/ Y7 Q0 {/ y(- 4.5 1.0e-6)结果显示还是4.5,检验(= (- 4.5 1.0e-6) 4.5)结果为 nil,这就是说其实已经减去了,如何让它报出精确的结果呢?
发表于 2008-8-26 10:22 | 显示全部楼层
原帖由 yrgui 于 2008-8-20 12:07 发表
' m2 k. `1 o0 A" Y7 o- s% l3 \请教一个lisp里面计算精度的问题% ~- R  D0 o0 V7 Q; R" }# L
如:; p. O# N7 W+ \
(- 4.5 1.0e-6)结果显示还是4.5,检验(= (- 4.5 1.0e-6) 4.5)结果为 nil,这就是说其实已经减去了,如何让它报出精确的结果呢?
$ L& M# v6 w) K0 J  N" l' r. }6 [

+ v2 X3 g0 X& _5 j7 D) k. @( I8 o4 T0 q' Q5 `
首先声明,只能同学相称,我算不得什么高手,也只是在学习中) y' z; K' a; J/ b
$ N+ J* ?; z# \0 z
看看下例,不知道满意吗?2 [& n- O& I7 B$ h. H0 Y7 W
(setq a (rtos (+ 1.0 (- 4.5 (atof (rtos 1.0e-06 2 14)))) 2 14))
  G# |- Q- \2 I, ^+ {( krtos 实、整数转字串  后面的2代表以小数表示,14代表精度取14位/ m6 u, v- I( c# C7 P; M
atof字串转实、整数,与4.5进行差值运算( C+ j: `/ c$ K& E; N
具体的可以再查相关函数解释
 楼主| 发表于 2008-8-26 14:22 | 显示全部楼层

回复 #2 baller 的帖子

同学,多谢了
: X* \' h8 x# @9 [0 k6 W  见笑啊,我把题目写成这样也是没办法,这个问题我等了好几天也没人帮我解决,所以---- : |1 O( j! b7 M, W; ]0 s
你这个做法确实可以,不过我不理解为什么系统不直接报出来,这样岂不更好,你说会不会是有什么设置可以改变这种情况呢?
发表于 2008-8-26 14:33 | 显示全部楼层
原帖由 yrgui 于 2008-8-26 14:22 发表 ' w, U4 z  [! U  R
同学,多谢了
0 ^( Q  `& O5 [1 R3 Q0 @4 s+ }  见笑啊,我把题目写成这样也是没办法,这个问题我等了好几天也没人帮我解决,所以----
$ u3 x" n: r. K- S* _+ q3 N0 Y你这个做法确实可以,不过我不理解为什么系统不直接报出来,这样岂不更好,你说会不会是有什么设置可 ...
/ M% f  b" \/ O6 `- E9 v

7 A9 D, Q% Y: E% j默认只回显五位,我暂时也没有找到是否有变量控制开关
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-5-2 07:34

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表