重奖:解剖画弹簧的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
- `# O, e6 [* Y! p还想知道具体参数都是什么因为是德语,没看懂啊...
c/ p8 P/ a( {5 C( b: O
8 N! P* h% E I就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

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

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

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框( p6 o) {! W# F$ p8 i
:dialog-title "Pressure Spring"1 M' O& G! o' t% r$ [" L, R
:dialog-type :terminate6 W; {4 L$ N$ d
:variables
. f. |* U* n# d/ r, w
'( ("Material")& E1 T* L8 _/ A6 h t8 V
(mat ;;定义材料, a( Q( q& f; o4 X! k
:range ((81400 :label "Steel") (71600 :label "stainless steel"))) F: H- f- N$ ^- P" W" f* n& w7 B
:title "Material"
# Q6 D9 p, Y4 [. y& ^
:after-input (after-mat-action); s6 R9 L# r+ E1 e
)
2 z& Q& D. f4 H2 x7 P! d
("Dimension") ;;中径( R- M1 W6 M- l1 _* Q
(md$ v3 d* w( ~9 o3 X1 g- K8 P
:value-type :positive-length
" p4 | X' g% Y5 M+ u1 i! o
:prompt-text "Specify Middle winding"6 W5 w1 \5 e6 E* I& F
:title "Mean Diameter"
' X+ f2 N3 p0 v8 Z0 |+ [: q
:after-input (after-md-action)
- Y* J; c1 ]4 q/ K
)
9 W- m7 L( W' _, L9 H* z2 y
(dd
" a6 }$ C: y( m: W; n0 |
:value-type :positive-length
# ~* ?" v5 y( j$ n; g
:prompt-text "Specify Diameter wire"
& O6 G3 Q/ _4 g6 a
:title "Wire Diameter"
r4 H4 _( m! I4 s2 a5 \% B
:after-input (after-dd-action)( I7 }% K! k+ x8 r
)
/ Z, m8 t4 g$ X3 R: b8 u
(win ;;圈数
; P" r- E! q+ S
:value-type :positive-number
) B0 S" k* |8 [0 o6 u
:prompt-text "Specify Coils"
8 B9 P0 R7 j* Z9 g9 T+ g, j1 F) r
:title "Coils"
* |3 k, Y; |' e4 f3 V" C( X
:after-input (after-win-action)
! n: H' T% s! W
)# h" o9 j1 z c+ |6 o
(frate ;;形变系数
7 V# T3 }: {4 q* I
:value-type :positive-number
' q4 H% c, `. M% L
:prompt-text "Specify Spring rate"% P% m# s- k& Z6 U2 J' B6 ?
:title "Spring Rate"( k! Z5 L9 O. [
:after-input (after-frate-action)" g! _9 N. O" c' R! y* z
)
7 r9 e3 M/ O# [, C) ?
(len0 ;;长度, Q) @; c! |! M6 J# w% u/ f1 X: ?
:value-type :positive-number7 X9 ^! W# U4 Q! j. T, x
:prompt-text "Specify Unencumbered length"
8 e& o+ N2 n$ K/ f1 e2 J& b3 U) a
:title "Length", O$ s* C+ R7 {5 K
:after-input (after-len0-action)
/ @7 _, ^: @9 \; d9 N" l
)9 S9 _5 j+ i0 y
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力! ?: d7 D+ C1 K( w
:title "Delete" ;;清零按钮
T& y* x5 J' C+ Z+ j
). d0 h1 r6 O; I0 j
("Mounting")
% [+ v, s& `: {1 H8 W) r" q
(bgr ;;定义组件6 Y; u) f2 [+ I( I) E' G
:value-type :assembly
9 Z5 {$ a) X4 B3 \5 q0 y- R& I+ t" X
:prompt-text "Specify Assembly"
) W4 C& I S D
:title "Owner"! ^1 O D! n: E" e( w! |8 C. B
)
4 B8 M; Y$ S1 N
(stp ;;定义启始点( i% } z8 e: D2 ]8 X
:value-type :point-3d" \. \( v& r5 P. e
:prompt-text "Start Point"
9 G4 L. L) [% y! G8 i7 O( m; l
:title "Start Point"8 f8 Z. b% I5 y9 k+ G t* i9 t
)( v0 [3 ?' a% @& Q; {
(rcht ;;定义方向
' v* I1 K7 w+ `9 T% Q* X5 W
:value-type :measure-direction
* n m& W6 Y, U, I9 v1 V4 X+ J5 ^
:prompt-text "Direction"- k6 Q! l% x. h1 D: L' ]; T
:title "Direction"% p( e8 j4 `' k. g6 t1 h
)7 I6 g0 R: R( z1 E& X
(len ;;定义组装长度' A" x$ z2 U9 p* d4 b6 h% U
:value-type :positive-number) b Q+ m8 {) e
:prompt-text "Specify Mounting length". h4 u) Q' C5 G6 G! u" t# D" V
:title "Mounting Length" g4 G2 ?2 I" O& V5 r5 m7 ?
:after-input (after-len-action)
$ i1 ]6 F) B8 Z9 q4 [
): T) m% j2 e3 }& F y
(kraft ;;定义变形力（受到压力）
. m# Z+ b K& V; M
:value-type :display-only
5 I" X, R* F% A6 z7 R
:title "Force"/ j6 A l2 J/ \) F
)
: _! U( n* W) {3 b9 a
(lab :value-type :boolean ;;定义逻辑值# |% }* p5 [+ w- H9 y- c0 n& l
:toggle-type :wide-toggle+ s- S# e2 [3 C' {' m/ H
:initial-value t: L% E& h& R3 X9 D% p* q W' F
:title "Labeling"2 |, _8 H1 Z* z1 Z1 E+ A$ ?
)$ ~7 k& O, z5 Z S) C! |% b
)

复制代码

以上为部分

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

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif! I* S0 n$ r8 G v& V
我还没有这么深的层次，不了解lisp语言3 k* [! G. _) G3 u, v; m
我想问一下kting$ X/ L% z. ?7 [1 \
此程序的力量计算结果是否正确

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

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
! H$ p* H5 |: ?5 g0 ^9 p* c这个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 的帖子

浏览过的版块