平方根

JONTHEPOPE · 发表于 2022-7-6 15:22:02

有人能帮我计算一下嘴唇的动作吗
这是我到目前为止得到的任何帮助都会很好。
我尽可能地分解公式，使其易于编程。
孔口面积。lsp

David Bethel · 发表于 2022-7-6 15:27:21

我不认为我掌握了整个过程，但这里有一个更好的起点：

大卫

Lee Mac · 发表于 2022-7-6 15:32:08

嗨，大卫，很快，initget的第7位代码是什么？

JONTHEPOPE · 发表于 2022-7-6 15:34:00

看起来不错，谢谢，真的很干净。
这个，语言真的能用啊。
这肯定有助于发展。
我喜欢lisp，但不知道如何使用vbaide。
再次感谢

David Bethel · 发表于 2022-7-6 15:39:28

李，

1（位0）通过只输入ENTER来防止用户响应请求。
2（位1）通过输入零防止用户响应请求。
4（位2）通过输入负值防止用户响应请求。

1 + 2 + 4 = 7

它强制输入正数值-大卫

Lee Mac · 发表于 2022-7-6 15:44:00

不错，大卫。

Lee Mac · 发表于 2022-7-6 15:45:44

谢谢David提供的信息，

我对你的日常生活有了一些改进：（希望这就是乔恩想要的！）

copy


(defun c:orifice (/ g q1 hl oa od)
   (or g (setq g 9.81))
   (initget 7)
   (setq q1 (getreal "\nQ1 Data:   "))
   (initget 7)
   (setq hl (getreal "\nHL Data:   "))
   (initget 6)
   (or
   (setq g (getreal (strcat "\nG Data <" (rtos g) "> : ")))
   (setq g 9.81)
   ) ;_  end or
   (setq oa (/ q1 (* 0.61 (sqrt (* 2 g hl)))))
   (setq od (* 2 (sqrt (/ oa pi))))
   (princ (strcat "Orifice Area: "
          (rtos oa)
          "\nOrifice Diameter: "
          (rtos od)
      ) ;_  end strcat
   ) ;_  end princ
   (prin1)
) ;_  end defun