重奖:解剖画弹簧的lisp

sytgos · 发表于 2009-2-12 11:34:09

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

lisp下载

http://www.3dportal.cn/discuz/vi ... &extra=page%3D2

短短23K的lisp却搞得我头都大了…
谁能把function部分他判断数据是否正确用普通话表示一下,重奖…

或者根据你的经验给出输入数据之间必须保证的关系

kting · 发表于 2009-2-14 23:50:28

斑竹是想了解after-xxx-action条件语句呢？还是如下数值判定
(defun dc4-zugfeder-pruefe (durchmesser draht_durchmesser windungen einbaulaenge)
(if (and durchmesser draht_durchmesser windungen einbaulaenge)
  (if (and (> durchmesser (* 2 draht_durchmesser))
         (> (/ (+ (- einbaulaenge (* 2 durchmesser)) draht_durchmesser) windungen) draht_durchmesser))
:default
(values :error "Spring is not really produced!")
  );;
  :default
);;
)语句呢？

前者的functiong为条件当输入参数数值非0时，某变量赋予哪些值的作用

若为后者例子，可理解为：

当durchmesser draht_durchmesser windungen einbaulaenge等变量非0，同时durchmesser>2*draht_durchmesser且(> (/ (+ (- einbaulaenge (* 2 durchmesser)) draht_durchmesser) windungen) draht_durchmesser)时，弹簧可生成，否则提示"Spring is not really produced!"(无法生成）

[ 本帖最后由 kting 于 2009-2-14 23:56 编辑 ]

boll_lee · 发表于 2009-2-15 10:11:42

我还没有这么深的层次，不了解lisp语言
我想问一下kting
此程序的力量计算结果是否正确

sytgos · 发表于 2009-2-16 12:00:51

还想知道具体参数都是什么因为是德语,没看懂啊...

就是类似于下列这种,假如当中径为1时线径为0.1弹簧可生成,小于一提示错误...

[ 本帖最后由 sytgos 于 2009-2-17 15:01 编辑 ]

kting · 发表于 2009-2-16 20:24:29

原帖由 sytgos 于 2009-2-16 12:00 发表 http://www.3dportal.cn/discuz/images/common/back.gif: @# @1 V( X1 o3 {1 e. T0 }
还想知道具体参数都是什么因为是德语,没看懂啊...
0 I. c4 O( Y( \
- N2 u7 o" e) q7 {就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

可以使用在线翻译看看....在大概了解单词的意思后，再弄懂原理.....我这边也再研究一下.

kting · 发表于 2009-2-16 20:48:23

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框
4 M5 w' o+ h- o3 r0 D
:dialog-title "Pressure Spring"
$ p4 H& S( |, m/ q, i8 H. Z
:dialog-type :terminate
2 D6 n. L& n: J- L( L
:variables% X* S$ B* Z- c- `# H" X; H, Y# _
'( ("Material"); L" _/ t( L+ O
(mat ;;定义材料
& A7 |+ b3 k$ e8 T8 l0 P
:range ((81400 :label "Steel") (71600 :label "stainless steel"))1 e! s* T' ~6 {9 Y4 D
:title "Material", Y% y. g& r# M, A1 ^
:after-input (after-mat-action)# Q0 l1 D% v& M5 o _/ w
)7 ]9 r! h4 T$ q' e) E2 P: x' @
("Dimension") ;;中径
9 L, A- {+ N3 ^. U7 y9 t
(md9 M1 o$ ^% J a, [1 O7 G. _& m
:value-type :positive-length/ j O8 M! k. n
:prompt-text "Specify Middle winding"
' I5 p- ~5 a. G; e7 A7 i) k
:title "Mean Diameter"" Y/ J( m: T! L' o; \
:after-input (after-md-action). O R' X8 {" @+ {
)" ]* N: |# V5 h- o( c4 {& Z" w$ L
(dd
, c/ c4 A/ m2 R: M7 J
:value-type :positive-length
9 [9 o) [8 s' n
:prompt-text "Specify Diameter wire"
- E$ {4 Z0 T' B6 J
:title "Wire Diameter"- ^, g) m( G5 D- v
:after-input (after-dd-action)% N. ]! a7 U5 q5 l6 X! @1 I+ {* L
)
2 e& p. `( P# ?6 V
(win ;;圈数
" B, R2 `) Z# v% d" | A/ K) M5 b2 Y
:value-type :positive-number
8 G. A4 Z) i( S
:prompt-text "Specify Coils"$ R5 x. m9 R) y0 e
:title "Coils" u8 t( f' _# ?# F8 V
:after-input (after-win-action)1 L' F& Q c% a8 k$ g5 E
)
: r. z+ E! U0 ^
(frate ;;形变系数3 T S$ O* M0 a( ?3 Q' \8 h1 j
:value-type :positive-number" g9 U. I$ F. C6 W; P: u
:prompt-text "Specify Spring rate"
, T, [+ C! c( T; V9 g. o) t9 D
:title "Spring Rate"% \# z* E4 O: b3 f
:after-input (after-frate-action)
)
- `, Y O. y) G1 w8 ^8 W1 W
(len0 ;;长度& g; D& R' {0 d3 Y% ?9 v0 X
:value-type :positive-number
4 b% Q0 z3 F* ]; |
:prompt-text "Specify Unencumbered length"* \5 O, l `( ?: V
:title "Length"
" [- ?# y1 i$ g K% @$ ]2 h
:after-input (after-len0-action)
2 t4 q& W- E2 s0 i0 j' a0 G) F/ z8 L; T
)
; m! S2 r i7 s. }0 W0 d9 {4 C5 B
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力) c% _% [* X2 Z" Z" Y R
:title "Delete" ;;清零按钮
D3 g9 d% M- y9 z% e& {2 p
)
8 c; |' v( I1 R2 Y' l
("Mounting")
! G3 I' B6 ~! W
(bgr ;;定义组件8 i7 E* t& e4 H; L4 \6 \+ L% N' I
:value-type :assembly( x! W: d- d+ y( d# I, C
:prompt-text "Specify Assembly") A A6 d: v9 a. d$ N& Y
:title "Owner"
( P: [6 i3 _, _* o
)
; C" m0 C! ^- L% ^3 b
(stp ;;定义启始点' [( d# W2 ?5 U6 t- Z/ `/ m8 c
:value-type :point-3d
% ~: K1 F0 i6 O
:prompt-text "Start Point"
' h8 d" _) t$ ~2 S& _* V
:title "Start Point") j R. q P8 `& E9 d, e/ h
)' H. K+ i; s; b& @2 ]: x7 P0 P0 ~: v
(rcht ;;定义方向& S# k0 {8 R" h9 y
:value-type :measure-direction
: Y5 g$ k( j/ Z3 o+ X
:prompt-text "Direction"9 D e8 _4 U; t# X* k/ W8 z
:title "Direction") S( k3 M; h' ]* E1 p2 \, F7 } Y
)
$ b9 s3 w5 V; x: i) X- o. J2 R1 V
(len ;;定义组装长度
3 z+ n) u) p3 ~" W6 x U
:value-type :positive-number* ]8 N. e/ k2 J. j! J' u \
:prompt-text "Specify Mounting length"
9 J$ `8 A b( ]: U, a, n
:title "Mounting Length"
+ ]* D1 ?: V2 M1 G! \
:after-input (after-len-action)' {, o; L0 z" E: W
)
6 K+ V- k8 d) V" q' a- Q
(kraft ;;定义变形力（受到压力）
0 Y3 l3 u: G9 c, u( p; S+ b
:value-type :display-only
9 q6 o" e( _/ t2 g! j) C8 G( J: D
:title "Force"5 M, p1 f% \( t. T1 b% A8 J) e$ H! H
)% M+ A; ?1 t4 {6 b+ ^7 u
(lab :value-type :boolean ;;定义逻辑值* f6 S, C, u" V" R8 g. W
:toggle-type :wide-toggle
8 d9 H- e" |; @ e# s. v
:initial-value t
' M4 G; Z* c5 l4 _( E
:title "Labeling"7 Q/ m5 K& R9 C% E
)
& w8 f0 l f: |0 ?& S
)

复制代码

以上为部分

kting · 发表于 2009-2-16 20:50:53

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif
: A7 e& A% F# d我还没有这么深的层次，不了解lisp语言* N) Q: S3 m4 t9 p# H S9 W
我想问一下kting
/ X- ~( I4 A, O* A. X5 \此程序的力量计算结果是否正确

该程序只有两种选择为普通钢和不锈钢两中材质的弹簧，只要你输入正确弹性系数就正确啦

sytgos · 发表于 2009-2-17 15:04:13

经济危机下常来的兄弟越来越少了...
kting兄弟怎么样?有影响吧...

kting · 发表于 2009-2-17 20:32:41

一样有很大的影响，公司在未来的日子怎么的计划还不明确，可能要裁人，可能要搬厂，如果那样子的话就意味着失业等着

sytgos · 发表于 2009-2-18 16:43:31

这个lisp里面算力的公式是什么?

kting · 发表于 2009-2-20 21:48:33

原帖由 sytgos 于 2009-2-18 16:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif; i* q4 j$ V3 F4 b. `, d: e
这个lisp里面算力的公式是什么?

以压簧为例：
frate=(4*dd^4*mat)/(8*win*md^3) --->程序中出现变形系数、材料系数（钢为81400，不锈钢为71600）、弹簧中径、截面圆直径、圈数关系

Kraft(压力)=(len0-len)*frate --->即F=k * x

下附件为以压簧为例子的程式加简单的注解说明，供参考.

[ 本帖最后由 kting 于 2009-2-22 18:27 编辑 ]

kting · 发表于 2009-2-25 21:09:59

斑竹可以参考一下编辑过的档案

		自动登录	找回密码
密码			注册

通知

[讨论] 重奖:解剖画弹簧的lisp

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

回复 2# kting 的帖子

评分

回复 6# kting 的帖子

浏览过的版块