请各位帮忙把下面一个公式，用LISP语言写一下,急用！！！

gprspda

T=I×171233×［（288±V）－0.006496H］0.5÷（288－0.006496H）2.628，其中的0.5 和2.628都是指数。还请各位前辈多多指教！

gprspda

还请各位前辈多多帮忙啊，这个带次方的，我这个小菜鸟实在不会写啊

七七0707

gprspda 发表于 2011-9-20 18:01
还请各位前辈多多帮忙啊，这个带次方的，我这个小菜鸟实在不会写啊

288±V 是什么意思啊？姑且理解为+法吧！

1. (defun tt (I V H)
   
2.   (/
   
3.     (*
   
4.       I
   
5.       171233
   
6.       (expt
   
7.         (-
   
8.           (+ 288 V) ;_ ±不知啥意思
   
9.           (* 0.006496 H)
   
10.         )
    
11.         0.5
    
12.       )
    
13.     )
    
14.     (expt
    
15.       (- 288 (* 0.006496 H))
    
16.       2.628
    
17.     )
    
18.   )
    
19. )
    

(defun tt (I V H)<br />   (/<br />     (*<br />       I<br />       171233<br />       (expt<br />         (-<br />           (+ 288 V) ;_ ±不知啥意思<br />           (* 0.006496 H)<br />         )<br />         0.5<br />       )<br />     )<br />     (expt<br />       (- 288 (* 0.006496 H))<br />       2.628<br />     )<br />   )<br /> )<br />

cabinsummer

1. (defun func-t (para-i para-v para-h / a b c)
   
2.   (setq a (* 0.5 (log (- (+ 288 para-v) (* 0.006496 para-h)))))
   
3.   (setq b (* 2.628 (log (- 288 (* 0.006496 para-h)))))
   
4.   (setq a (exp a) b (exp b))
   
5.   (setq c (/ (* para-i 171233 a) b))
   
6.   (princ c)
   
7.   (princ "\n")
   
8. )

(defun func-t (para-i para-v para-h / a b c)<br />   (setq a (* 0.5 (log (- (+ 288 para-v) (* 0.006496 para-h)))))<br />   (setq b (* 2.628 (log (- 288 (* 0.006496 para-h)))))<br />   (setq a (exp a) b (exp b))<br />   (setq c (/ (* para-i 171233 a) b))<br />   (princ c)<br />   (princ "\n")<br /> )

函数调用(func-t para-i para-v para-h)
para-i对应于公式中的I；
para-v对应于公式中的V；
para-h对应于公式中的H。
我看不懂你的±V，就当+V计算了。

gprspda

七七0707 发表于 2011-9-20 23:25
288±V 是什么意思啊？姑且理解为+法吧！

非常感谢你的帮助，谢谢

gprspda

cabinsummer 发表于 2011-9-20 23:28
函数调用(func-t para-i para-v para-h)
para-i对应于公式中的I；
para-v对应于公式中的V；

非常感谢你的回答，谢谢