求助，公式计算

刘炎华

如图片所示，不知道能不能实现...请大家帮我看下

vitalgg

没有做 0 除检查 和 R0 /= Rt 检查 ，自己加吧。 顺便 推广一下 @lisp:   http://atlisp.cn

1. (defun ktr0rt:dialog (/ dcl_fp dcl-tmp dcl_id ktr0rt:cal)
   
2.   (defun ktr0rt:cal (/ k t1 r0 rt res)
   
3.     (setq k (read (get_tile "K")))
   
4.     (setq t1 (read (get_tile "t")))
   
5.     (setq r0 (read (get_tile "R0")))
   
6.     (setq rt (read (get_tile "Rt")))
   
7.     (if k (setq k (float k)))
   
8.     (if t1 (setq t1 (float t1)))
   
9.     (if r0 (setq r0 (float r0)))
   
10.     (if rt (setq rt (float rt)))
    
11.     (cond     ((or (= 0 r0)(= 0 rt)(= 0 t1))       (alert "R0 Rt t不能为 0"))
    
12.       ((and (null k)
    
13.             (numberp t1)
    
14.             (numberp r0)
    
15.             (numberp rt))
    
16.        (set_tile "K"  (rtos (* t1 (- (/ 1 rt)(/ 1 r0))) 2 5)))
    
17.       ((and (numberp  k)
    
18.             (null t1)
    
19.             (numberp r0)
    
20.             (numberp rt))
    
21.        (set_tile "t" (rtos (/ k (- (/ 1 rt)(/ 1 r0))) 2 2)))
    
22.       ((and (numberp k)
    
23.             (numberp t1)
    
24.             (null r0)
    
25.             (numberp rt))
    
26.        (set_tile "R0" (rtos (/ 1 (- (/ 1 rt) (/ k t1))) 2 2)))
    
27.       ((and (numberp k)
    
28.             (numberp t1)
    
29.             (numberp r0)
    
30.             (null rt))
    
31.        (set_tile "Rt" (rtos (/ 1 (+ (/ 1 r0) (/ k t1))) 2 2)))     (t (alert "数据不全或太全。"))
    
32.       ))
    
33. 
    
34.   (progn
    
35.     (setq dcl-tmp (strcat (getenv "temp") "\\" "tmp-ktr0rt.dcl" ))
    
36.     (setq dcl_fp (open dcl-tmp "w"))
    
37.     (write-line (strcat "panel : dialog {"
    
38.                         "label = \"Calc\"; "
    
39.                         ":row{"
    
40.                         ": edit_box { key=\"K\";label=\"K\";}"
    
41.                         ": edit_box { key=\"t\";label=\"t\";}"
    
42.                         ": edit_box { key=\"R0\";label=\"R0\";}"
    
43.                         ": edit_box { key=\"Rt\";label=\"Rt\";}"
    
44.                         ": button { key=\"calc\";label=\"Cal\";}"
    
45.                         "}ok_cancel;}")
    
46.                         dcl_fp)
    
47.     (close dcl_fp))
    
48.   (setq dcl_id (load_dialog dcl-tmp))
    
49.   (if (not (new_dialog "panel" dcl_id))
    
50.       (exit))
    
51.   (action_tile "calc" "(ktr0rt:cal)")
    
52.   (start_dialog)
    
53.   (unload_dialog dcl_id)
    
54.   (vl-file-delete dcl-tmp))
    
55. (defun C:tt ()(ktr0rt:dialog))
    
56.   

(defun ktr0rt:dialog (/ dcl_fp dcl-tmp dcl_id ktr0rt:cal)<br />   (defun ktr0rt:cal (/ k t1 r0 rt res)<br />     (setq k (read (get_tile "K")))<br />     (setq t1 (read (get_tile "t")))<br />     (setq r0 (read (get_tile "R0")))<br />     (setq rt (read (get_tile "Rt")))<br />     (if k (setq k (float k)))<br />     (if t1 (setq t1 (float t1)))<br />     (if r0 (setq r0 (float r0)))<br />     (if rt (setq rt (float rt)))<br />     (cond     ((or (= 0 r0)(= 0 rt)(= 0 t1))       (alert "R0 Rt t不能为 0"))<br />       ((and (null k)<br />             (numberp t1)<br />             (numberp r0)<br />             (numberp rt))<br />        (set_tile "K"  (rtos (* t1 (- (/ 1 rt)(/ 1 r0))) 2 5)))<br />       ((and (numberp  k)<br />             (null t1)<br />             (numberp r0)<br />             (numberp rt))<br />        (set_tile "t" (rtos (/ k (- (/ 1 rt)(/ 1 r0))) 2 2)))<br />       ((and (numberp k)<br />             (numberp t1)<br />             (null r0)<br />             (numberp rt))<br />        (set_tile "R0" (rtos (/ 1 (- (/ 1 rt) (/ k t1))) 2 2)))<br />       ((and (numberp k)<br />             (numberp t1)<br />             (numberp r0)<br />             (null rt))<br />        (set_tile "Rt" (rtos (/ 1 (+ (/ 1 r0) (/ k t1))) 2 2)))     (t (alert "数据不全或太全。"))<br />       ))<br /> <br />   (progn<br />     (setq dcl-tmp (strcat (getenv "temp") "\\" "tmp-ktr0rt.dcl" ))<br />     (setq dcl_fp (open dcl-tmp "w"))<br />     (write-line (strcat "panel : dialog {"<br />                         "label = \"Calc\"; "<br />                         ":row{"<br />                         ": edit_box { key=\"K\";label=\"K\";}"<br />                         ": edit_box { key=\"t\";label=\"t\";}"<br />                         ": edit_box { key=\"R0\";label=\"R0\";}"<br />                         ": edit_box { key=\"Rt\";label=\"Rt\";}"<br />                         ": button { key=\"calc\";label=\"Cal\";}"<br />                         "}ok_cancel;}")<br />                         dcl_fp)<br />     (close dcl_fp))<br />   (setq dcl_id (load_dialog dcl-tmp))<br />   (if (not (new_dialog "panel" dcl_id))<br />       (exit))<br />   (action_tile "calc" "(ktr0rt:cal)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (vl-file-delete dcl-tmp))<br /> (defun C:tt ()(ktr0rt:dialog))<br />   

xj6019

vitalgg 发表于 2021-5-22 19:55
没有做 0 除检查 和 R0 /= Rt 检查 ，自己加吧。 顺便 推广一下 @lisp:   http://atlisp.cn

这里一个高手！  支持@lisp