重奖:解剖画弹簧的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
% N7 {/ M* \* u: N: y" }- {还想知道具体参数都是什么因为是德语,没看懂啊...
( M! D3 \* W: I; p) z1 T6 Z0 _. s6 y$ L1 ~9 B/ w+ G
就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

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

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

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框
+ I( y) Y3 d; i6 S9 K. Q
:dialog-title "Pressure Spring"& X8 T5 w" h+ W
:dialog-type :terminate
* O! @2 G6 h# o" C
:variables4 K2 j5 {* D6 m& G3 T# T# J: Z
'( ("Material")4 z7 g+ X. y1 u# m; Q; Q
(mat ;;定义材料/ J" N: x% ?* i" o# ~( Y5 z8 K# ]
:range ((81400 :label "Steel") (71600 :label "stainless steel")) b1 V% ~; P- d1 _8 i$ w& ]2 M
:title "Material"
) L& d$ e F' \1 N, L6 G9 ^/ G) h
:after-input (after-mat-action)
% G g6 g6 u6 Z; S( v* }6 U
)4 Y \$ Z, w% B# H& U+ }
("Dimension") ;;中径
8 a& d+ C! S* e9 Q( ?/ y( D# D
(md2 [; s) ^4 P% p4 A+ S3 c/ W
:value-type :positive-length1 y& ^/ n* x0 R2 h3 d
:prompt-text "Specify Middle winding"
! Y5 X6 g( X+ a- a0 U- _# [7 d
:title "Mean Diameter"" j8 t( B% b, t: ^" B7 E
:after-input (after-md-action)
2 |* v) O- W- s) O4 j
)
* b7 v' i6 h9 ^, d
(dd( {* K! Y. ^8 {
:value-type :positive-length, ^2 e! g) S. x/ ~3 N
:prompt-text "Specify Diameter wire" q! v$ d6 [5 j* Q1 P! h5 z9 I7 U. f5 r
:title "Wire Diameter"
- ]+ c' R4 k4 J! L5 t0 {
:after-input (after-dd-action)4 y9 t: W0 w% G. @$ s0 U! ]! j
)" @% E6 i4 Y" f+ E* P- g3 ^3 A
(win ;;圈数8 m7 ^8 p8 B+ T* R. _. V: J6 P o
:value-type :positive-number
6 D7 E5 |3 ^) @$ f+ w
:prompt-text "Specify Coils"1 _% h- F8 P) j+ [8 |* y) W/ G
:title "Coils"
1 C/ L% j" c& U7 d/ k
:after-input (after-win-action)
- P; u4 I8 e* c' }% s# z/ J
)
: f. O n, }! ~5 B4 @. F
(frate ;;形变系数: _& H9 f$ s$ @2 _+ p
:value-type :positive-number
' m- t& H) j! ^5 O# E
:prompt-text "Specify Spring rate": [% l: H. ?% ?5 g4 }+ f% C4 }: \
:title "Spring Rate" O9 q6 n1 t2 v5 @4 b8 e
:after-input (after-frate-action)
" {# _; x" h' B
)' z7 i: Z# f" C3 O) t: ?' _& T
(len0 ;;长度 h) N/ c2 k. K5 n- Q
:value-type :positive-number
) z" f/ L( p0 G! p7 w4 l0 B
:prompt-text "Specify Unencumbered length"* M3 k3 p% \; o$ c
:title "Length"
! ?5 c; e8 t4 F3 k# c" b* Q4 _
:after-input (after-len0-action)/ `; h3 F# b0 J
)
/ y2 A+ K! o2 D( {7 B( l' u7 ^
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力7 z( i, p! c* a
:title "Delete" ;;清零按钮
- R6 q- `. A. Y4 b
)5 O8 |/ g1 a6 P. c: f4 c- \
("Mounting")/ M' }6 q& ~! l1 x7 P: q, R" d
(bgr ;;定义组件$ L" m$ ]& S; `6 K5 Y: ` G
:value-type :assembly" {2 R; \0 P. x. u& G7 k. A" ^
:prompt-text "Specify Assembly"
' m$ E; ~$ \1 o5 l3 Q) }
:title "Owner"+ J5 {# K/ ^# _
)
5 O# y) o6 ~0 K7 m
(stp ;;定义启始点( T0 W3 }# l/ m; q
:value-type :point-3d9 S- x. R& a& J- [7 N
:prompt-text "Start Point"
* z5 H5 O3 G- C3 Z
:title "Start Point"& O# h/ f, w. |2 D$ X, e; p0 E7 S- V; Z
)
/ k! U% @# f x5 D* T b% f
(rcht ;;定义方向' p) j. Z- V" n
:value-type :measure-direction
3 H. J' ~( p9 u( ~
:prompt-text "Direction"
! w/ i/ Y+ h2 h1 ?. X. M
:title "Direction"
8 X; p. A+ o/ X
)* `3 e! S- i. S4 F. q' Y6 P5 `
(len ;;定义组装长度
" k/ t1 O8 b: E/ ~3 M
:value-type :positive-number
j6 d& V( ^# u% d; k* k0 U, `
:prompt-text "Specify Mounting length"+ }4 n- [# }6 I
:title "Mounting Length"
# m9 w, I1 h& e' ^2 X# E
:after-input (after-len-action)
# [9 E+ t3 N% e1 Y3 _
)
' S( _, t( n2 n B) {' |
(kraft ;;定义变形力（受到压力）! u4 @9 W2 {2 k3 V. q
:value-type :display-only" Q/ x. N" i. }7 D, x
:title "Force"; @/ U& }' Z/ L
)' r0 P9 _( _- ]: B8 @2 U1 M, g9 G
(lab :value-type :boolean ;;定义逻辑值
* u6 _0 w0 ]5 b5 {( \7 o8 y, Q
:toggle-type :wide-toggle/ k$ |+ c- Q) |* I1 e
:initial-value t+ \* j2 I# G p( P8 P
:title "Labeling", ~* ?% \7 X H! B( A0 b) J5 u6 O
)
)

复制代码

以上为部分

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

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif3 I: A5 g2 x8 p9 _ n1 I
我还没有这么深的层次，不了解lisp语言$ R7 m- t, ?8 o$ q7 P' [# ?
我想问一下kting
3 T& \+ ]) v& d3 t/ Q: m此程序的力量计算结果是否正确

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

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
$ |$ Q9 P2 G- A/ v这个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 的帖子

浏览过的版块