[求助]： 一个简单又难解决的问题

HHL_814

我用lisp程序编小程序时发现一个问题，使用
(setq A (rtos  B 2 2))
语句不能完全按设想得到结果。
本来设想是将实数B按十进制2位小数返回给A （例 B=2.000000   想得到A=2.00），
但，如果B是小数点后两位以上非零值，则返回两位小数值给A （例B=2.13456  则A=2.13），
如B是整数则返回整数给A （ 例B=2.00  则A=2）
如B是一位非零小数则返回一位小数值给A （例B=2.10  则A=2.1）
不知如何才能得到想要的结果。
请各位不吝赐教，谢了。


请问Underway ，如何测试dimzin，如何设置dimzin，谢谢

Underway

例B=2.00 则A=2 & 例B=2.10 则A=2.1  ==> check DimZin

例B=2.13456 则A=2.13
若B=2.987654 则A=2.98 or A=2.99 ?