重奖:解剖画弹簧的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.gif1 H) K3 ~% ~) X4 W: e
还想知道具体参数都是什么因为是德语,没看懂啊...9 D/ X& S& i" O4 n# u

' b& Q. s9 Y- b; w% J就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

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

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

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框; I7 E9 s. p. R, U% J9 i* o0 q
:dialog-title "Pressure Spring". ` [. Y& X# @1 ~+ R' `) k' K4 I
:dialog-type :terminate5 R9 q& O4 [4 n) L
:variables
2 z: _7 [9 x$ x- Y
'( ("Material")
9 y; J2 Y) N0 g/ s1 F/ E
(mat ;;定义材料
9 e+ a, t( i5 O' K( u
:range ((81400 :label "Steel") (71600 :label "stainless steel"))
/ k& t# u: f" v" S2 K% d
:title "Material"5 C2 `1 @' X) x
:after-input (after-mat-action) ^+ q3 i' D4 S6 c7 F: Q5 n
)+ G5 u/ i- v$ ]' S: A9 ?( { U8 E
("Dimension") ;;中径 n9 v- J" j3 ^& x8 }
(md
# V/ w1 n$ M! G; a
:value-type :positive-length
; B9 g6 [1 ]( x1 [4 |: e' o# k
:prompt-text "Specify Middle winding"
! M6 r* L. g1 f* l( W
:title "Mean Diameter"
3 E! B$ j! |# P
:after-input (after-md-action)% g7 c" H4 c9 B9 j# z$ l$ l7 c, ^
)
; g% _7 R& t. X. L
(dd
2 ?) _: q$ x& K; |' L
:value-type :positive-length
' U6 o: v2 K7 j3 G! u3 h
:prompt-text "Specify Diameter wire"
* ]$ K0 X; @5 f& c! i- V
:title "Wire Diameter"
( a1 j/ |* q# u5 Y! q! j K+ ? b
:after-input (after-dd-action)# t1 K3 J9 _. o) l6 u7 J, e [
); p6 F% s# X, E( _
(win ;;圈数& ?0 m$ d; g& g/ s$ C- b8 ~
:value-type :positive-number% K i; K, E1 h+ h
:prompt-text "Specify Coils"/ ~7 [! I+ j$ f) [- Q
:title "Coils": V3 H9 _" Y5 y' {, p
:after-input (after-win-action)" P8 h0 n; f! f! ]. o9 `/ D n
)' X& D/ ~! ^: ?: a8 w0 b. z* w0 e: z
(frate ;;形变系数
5 {7 T- I- ?! G: F7 w
:value-type :positive-number+ V* n" x! S3 W$ |
:prompt-text "Specify Spring rate"
/ h/ k* Y2 X9 N9 y, O9 D' l! i2 |' C
:title "Spring Rate"# v' {# d4 `2 l0 Y
:after-input (after-frate-action) _- k0 @! X. T2 O1 ~$ X
)6 h! |/ i% @6 V; H( y L' _
(len0 ;;长度9 q( c3 x! s3 n' t( @
:value-type :positive-number
) B$ E. u/ _$ |
:prompt-text "Specify Unencumbered length"0 @; \* Y5 |! P; C
:title "Length"
' g3 j# @6 J6 z6 l/ t
:after-input (after-len0-action)* ]( x# j( r% l! a7 d! c6 V3 [
)- o- Z v9 x) I$ u( `9 e+ w
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力
& F, x, D/ |& \7 L6 }& ^# q
:title "Delete" ;;清零按钮1 e# |. A: c* w8 g8 n; P
)
6 j3 |; L. p1 D3 D) Y, k
("Mounting") p; _; `/ V0 L) v. t0 }7 n
(bgr ;;定义组件
7 Y9 m$ u1 R( j$ h2 b2 Z# C
:value-type :assembly5 w: F- u/ P( ?" h+ |5 y6 Y
:prompt-text "Specify Assembly"
# i' U8 } x: o7 J7 f- i
:title "Owner"" d; I7 Y- B5 s. u0 G* ^. t
)& p7 F+ `$ T6 n0 I' ^3 D K
(stp ;;定义启始点
A1 ]5 i' u( f* Q) P5 I7 m2 m
:value-type :point-3d
:prompt-text "Start Point"
* p7 L' |7 Z; T) g7 `3 S! ]! ^
:title "Start Point"7 i! V ]+ H. j4 p& J
)1 Z. m, J- ?" u" l: e. T# e
(rcht ;;定义方向
. V4 k. O5 d- D3 M2 K
:value-type :measure-direction
7 t5 A8 b- s6 h/ [+ i! l! Q! R; v) Y2 ^
:prompt-text "Direction"
) S5 J- d, D/ a3 ?
:title "Direction"
$ w. T" H* K' b' w+ w
)
" e; _; d+ p$ C9 G' e, K9 H
(len ;;定义组装长度
1 ?- Y# o U' ?( ]5 a6 O3 c, u3 U* j
:value-type :positive-number
- S8 p8 x8 Q. W7 A# I8 s
:prompt-text "Specify Mounting length"
3 k- @' `6 O1 @$ A, v! c5 ~
:title "Mounting Length"
|/ i0 t9 x. l, i* b8 ?& ]2 e
:after-input (after-len-action)
$ J; W, [& |) Z0 D9 G
)
) C0 B9 F- k! d% z3 R
(kraft ;;定义变形力（受到压力）
5 ]) b5 ?5 Q* e+ y8 h- A
:value-type :display-only
& U, L. k4 s9 D4 h! v- R
:title "Force"7 K8 }, u: g! P" ]- G
)
9 R" [: |2 e; `0 y n# h
(lab :value-type :boolean ;;定义逻辑值
9 J& |; y' ?" a- ]
:toggle-type :wide-toggle
0 Y) P {& B! I0 J, ~
:initial-value t
. C# U X+ i& U; U& x, C
:title "Labeling"
" t8 m5 h- `% P
)
! I# P" f* C# k M2 v1 A/ v1 c
)

复制代码

以上为部分

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

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif+ D' i) o. |* n( w$ m
我还没有这么深的层次，不了解lisp语言
" t+ G, x0 F% D0 r2 Q我想问一下kting1 O' |# X: a+ t" \4 L8 ]- _. n
此程序的力量计算结果是否正确

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

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
, s9 g, h: b7 H4 c2 }这个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 的帖子

浏览过的版块