[求助]高手救命

xjking007 · 发表于 2010-10-10 22:52:00

这个程式应当是这样的：

(setq Ijs (* 1000 (/ Pjs k1 1.73 380))) ；计算电流、

感谢楼上的指出来，程试错了，呵呵，

xjking007 · 发表于 2010-10-10 22:55:00

不过那个if 条件语句我还是不会弄，痛苦呀

masterlong · 发表于 2010-10-11 00:08:00

那一段代码完整的写法实际上应该是下面这样的

(if (null #同时系数)(setq #同时系数 1))

(if (null (setq 同时系数 (getreal (strcat "\n\t指定同时系数<" (rtos #同时系数 2 2) "> : "))))
(setq 同时系数 #同时系数)
(setq #同时系数同时系数)
)

#同时系数是一个全局参数

程序第一次运行时赋值1

同时系数是一个内部参数

getreal以后

对同时系数赋值的同时更新#同时系数

这样写的目的是记忆你的上一次输入

因为你的要求是空输入时KX=1

所以前面代码里直接固定#同时系数为1了

(rtos #同时系数 2 2)是格式化实数为小数两位

你的代码其实没有问题

查查你未贴出的代码部分是否用了(initget ....)禁止了空输入

xjking007 · 发表于 2010-10-11 06:43:00

服了，真是高手啊，确实用了initget

太强了，没有看前面的程序都知道，不得不服了，

非常感谢masterlong的无私帮助！！

xjking007 · 发表于 2010-10-11 06:58:00

我把楼主的意见，用定字板收起来了，呵呵，

xjking007 · 发表于 2010-10-12 02:08:00

masterlong你真是太牛逼了啊；

依据你的理念，

还有在群里的朋友教会我的调程序的方法；

程序写出来了，

太完美了，

可以省好多事，好多时候的重复输入可以省了；

masterlong

你就是救世主，尼奥呀，太牛逼了，哈哈。

xjking007 · 发表于 2010-10-12 07:41:00

终于明白思想比会写程序重要；

我起初只是想到了，不输入的时候，要预设一个值；

没想到，还可以，保留上一回输入的结果；

这个思想太重要了

masterlong · 发表于 2010-10-12 21:21:00

不客气

作为同行

看到有人在写这样的程序

能够帮的自然要帮一下

如果不介意的话

把完整代码贴出来吧

帮你看看还有什么可以改进的

xiaoquansb · 发表于 2010-10-12 22:17:00

全部贴出来好人家帮你调试啊

sqqr · 发表于 2010-10-14 21:52:00

她闪了，说到要她贴出代码，就闪了

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

[基础] [求助]高手救命