[求助]高手救命

xjking007

(setq kx (getreal "\n输入同时使用系数<1>:"))；输入同时使用系数

 

(if (= kx nil) (setq kx 1.00) (setq Pjs (* Kx mm))) ；求计算功率，用一个if语句来，控制，如果没有输入就，把kx,定为1，否侧，取输入的值。

 

 

刚来学lisp请高手看一下，这个语句为啥返回了错误 提示：  参数类型错误: numberp: nil

xjking007

高手快来啊，我目的就当没有输入的时候，让kx的值为1;

当有输入的话，kx就取输入的值。

有高手来教一下我吗

xiaoquansb

mm没有赋值

xjking007

我没有贴全程序mm有值了，是前面计算的结果；

就是我的if语句用错了，

(setq kx (getreal "\n输入同时使用系数<1>:"))；输入同时使用系数

(if (= kx nil) (setq kx 1.00))

(setq Pjs (* Kx mm))            ；求计算功率

(setq k1 (getreal "\n输入功率因数<0.80>:"))  ；输入功率因数

(if (= k1 nil) (setq kx 0.80))

(setq Ijs (/ Pjs k1))    ；计算电流

                    

xjking007

我没有贴全程序mm有值了，是前面计算的结果；

就是我的if语句用错了，

(setq kx (getreal "\n输入同时使用系数<1>:"))      ；输入同时使用系数

(if (= kx nil) (setq kx 1.00))                             ；当没有输入，同时使用系数黑认为同时使用系数为1

(setq Pjs (* Kx mm))                                      ；求计算功率

(setq k1 (getreal "\n输入功率因数<0.80>:"))       ；输入功率因数

(if (= k1 nil) (setq kx 0.80))                             ；当没有输入，功率因数默认为0.8

(setq Ijs (/ Pjs k1))                                        ；计算电流

xjking007

(setq kx (getreal "\n输入同时使用系数<1>:"))；输入同时使用系数

 

 

(setq Pjs (* Kx mm))            ；求计算功率

(setq k1 (getreal "\n输入功率因数<0.80>:"))  ；输入功率因数

 

(setq Ijs (/ Pjs k1))  ；计算电流
                    
去掉二个IF语句调试完全通过，为什么呢，有高手回答吗？

如果加上二个if条件语句就这样：

参数类型错误: numberp: nil

xjking007

楼上的帮我仔细分析一下啊，

刚来学困惑呀

masterlong

 

 

(setq #同时系数 1)

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

 

 

masterlong

另外

 

Ijs=Pjs/cos  ??

xjking007

不是，呵呵，还要除以1.73呢，

楼上的大侠我没有看懂你的程序呢