lisp的litle帮助

prodromosm · 发表于 2022-7-6 06:30:10

我想要一个lisp来计算这种类型
k=ko+0.012311*（x-0.5）^2
ko=0999600
x随时更改
我想在Lisp程序的时候说（选一个点）
例如（x，y）x=376400,00和y=4225498.35（单位为米）
类型中的x必须为376400,00/1000000=0.3764

因此k=0.9996+0.012311*（0.3764-0.5）^2=0.999788

重要（x/1000000）>0无负数（单位为兆）

有人能帮忙吗

我试试这个（李麦克帮了我很多）
我不懂Lisp程序，这样会犯很多错误，请帮帮我

copy


(defun c:k ()
  (setq pnt (getpoint "\n  calculate k:"))
(setq pn (list (car pnt) (cadr pnt) 0) )
(setq k   (+ (* 0.012311 (expt (- (/ (abs x) 1e6) 0.5) 2)) 0.9996)))
  (setq x ()(car pnt))
 (textscr)
   
(princ "\coordinate X: ")(princ (car pnt))
(princ "\the k is: ")(princ (car k))

prodromosm · 发表于 2022-7-6 06:37:48

没有人

prodromosm · 发表于 2022-7-6 06:46:55

我修好了好的

neophoible · 发表于 2022-7-6 06:55:08

这有点不切实际，不是吗？希望在发布后30分钟内获得免费解决方案？尽管修复起来可能很容易，但这并不是我们应该保持的正确前景。

neophoible · 发表于 2022-7-6 07:06:17

李直接帮了你吗？

您的修复可能包括删除上述粗体红色项目。我会在成品中添加绿色标记的部分。橙色标记的部分在您发布的代码中不起作用。
很高兴你成功了。如果你能分享你的结果来完成你的帖子，那就太好了。

萬里独行 · 发表于 2022-7-6 07:10:14

亲爱的大家！
但是，不应该滥用LISP。。。

copy

(defun C:CK ( / K PNT)
(setq pnt (getpoint "\nCalculate k:\n"))
;;;(setq pn  (list (car pnt) (cadr pnt) 0)) ;;; Set 2D point --> 3D useless!?
(setq k   (+ (* 0.012311 (expt (- (/ (abs (car pnt)) 1e6) 0.5) 2)) 0.9996))
(textscr)
(princ (strcat "\Coordinate X: [" (rtos (car pnt) 2 3) "] / The k is: [" (rtos k 2 3) "]\n"))
(princ))

祝你好运，玩得开心！