简支梁均布荷载弯矩图绘制lisp代码

tzfcn · 发表于 2021-4-17 14:30:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;jbhz简支梁均布荷载弯矩图绘制lisp代码
(defun c:jbhz()
(setq
q 2.
ll 2.
f1 (/ (* q ll) 2.)
p0 '(0. 0.)
xi (/ ll 1000.)
n 0)
(while (<= n 1000)
(setq
x1 (* n xi)
fm (* f1 x1)
qm (/ (* q x1 x1) 2.)
m0 (/ (- fm qm) -1.)
p1 (list x1 m0)
)
;(princ "\n横坐标：" )(princ x1)(princ ",纵坐标：")(princ m0)(princ ";")
(command "line" p0 p1 "")
(setq
p0 p1
n (1+ n)
)
)
)

xk15c · 发表于 2021-4-18 00:38:06

👍👍👍非常厉害

qqqincccken · 发表于 2021-4-18 11:50:11

非常不错谢谢提供

南山不雨 · 发表于 2021-4-18 16:46:34

感谢楼主分享

Michael527 · 发表于 2021-4-18 20:09:56

很实用的小程序，谢谢分享

janshyl · 发表于 2021-4-19 07:49:52

很好用的工具感謝樓主分享

xk15c · 发表于 2021-4-20 00:16:42

用了觉得很过瘾

账号		自动登录	找回密码
密码			立即注册

[每日一码] 简支梁均布荷载弯矩图绘制lisp代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。