重奖:解剖画弹簧的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.gif5 N2 n; ]% _% ^3 g# w
还想知道具体参数都是什么因为是德语,没看懂啊...
2 H! S0 K3 D' |4 Y8 P, I
) J' G8 |4 w4 h* e4 h2 q9 G就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

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

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

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框 X* h# B5 h+ r$ m; F
:dialog-title "Pressure Spring"% j5 @5 C) C0 Y; _- {' Q6 I
:dialog-type :terminate- B; ~9 J3 P; {5 W: O4 K1 K+ j' m
:variables
0 K4 O) `& J- k: l) a7 n1 N
'( ("Material")$ J& @ x7 D+ ]& x0 l' q
(mat ;;定义材料
" E& J# h# a1 N0 v
:range ((81400 :label "Steel") (71600 :label "stainless steel"))) V# C! d9 G+ W
:title "Material"# [9 g; w2 I/ T8 `8 M1 Y1 }# y
:after-input (after-mat-action)* m( ^$ A7 Q3 C
)
( d: s' l6 g1 B$ }
("Dimension") ;;中径# i0 [: \& i& ^( w& W
(md$ j( s# m5 e& J$ v x! c
:value-type :positive-length
* W1 K/ Z2 ^2 B
:prompt-text "Specify Middle winding"$ \8 v: G* M4 I8 \- N! Q
:title "Mean Diameter"' j: h( D3 i( g% C) H3 _
:after-input (after-md-action)
+ Z' }: c7 `8 ?' l# K$ O
)
" ?* X" K; P& [- c' f2 u3 O' W
(dd
M1 @3 J5 y' [
:value-type :positive-length
" H9 K' C: o4 S5 q& F3 M, b: ]' E
:prompt-text "Specify Diameter wire"4 \5 \& y* s' p
:title "Wire Diameter"
* z4 [6 W- }2 p; {. v; w
:after-input (after-dd-action), W: r6 U* E' d% p3 P4 t8 Q! a! v* I
)$ h! {% E: o& `% Q" x' d1 \ A3 Q
(win ;;圈数 n m( w$ k% o0 J. i
:value-type :positive-number. a5 ~: I7 k( u) p3 {
:prompt-text "Specify Coils"+ Q* }+ r8 s; N( D" k
:title "Coils"
N, V5 }7 N3 L+ |
:after-input (after-win-action)
. [4 U! |4 |7 K8 E# T! Z
)
0 n( s0 F2 k& B. \+ C6 ]
(frate ;;形变系数
. A7 m# Y% X) ^7 l- Y
:value-type :positive-number
- G) t& v9 x' v; f+ L% y4 {
:prompt-text "Specify Spring rate"9 i! j% h& Z: z d/ {1 O8 o
:title "Spring Rate"
& D8 {8 Q w' x( f/ o
:after-input (after-frate-action)+ m2 B# \0 E5 B# i9 A) h
)
6 r/ z& y7 V3 e! j
(len0 ;;长度" k$ N9 [( A, X5 T
:value-type :positive-number
* Y; y- ~6 G, }+ a. [% h$ E/ P9 c
:prompt-text "Specify Unencumbered length"+ @) ~# y8 A5 v( a- @$ [
:title "Length"
* u1 ]! _- B' J- r8 P# m. b
:after-input (after-len0-action)
" Y7 Q/ y0 c2 m/ v8 J3 O( w( \9 Z
)
2 _, F7 \( F; d- h+ _8 M( u
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力+ w/ ]- h# a, w1 u8 `+ E
:title "Delete" ;;清零按钮
) o) W, ]7 Y: |) V
)
7 r1 {% F! Z4 m t$ Z# x x- ~
("Mounting")
B+ E2 ~* q$ ~* }
(bgr ;;定义组件
; E6 c1 a* A- I" J, b3 o
:value-type :assembly
6 F$ ^2 s7 J. Q% o
:prompt-text "Specify Assembly"/ R) h7 h1 v' }2 v' r
:title "Owner"
5 _$ o9 Q% ]* [( T" S
)2 h( r, w+ k- N& P2 @
(stp ;;定义启始点
1 C3 P1 }8 v; k
:value-type :point-3d
. B9 [4 ?* S$ e6 U
:prompt-text "Start Point" j" F1 _; s) e) P$ t8 D6 [
:title "Start Point"
/ j( c5 @. M( e
)% B) m% J# U; a" s8 L2 v
(rcht ;;定义方向! A1 V7 w! E% N) P
:value-type :measure-direction1 p3 Y* y( n# j" Z; z/ C
:prompt-text "Direction"& z7 L9 d2 I4 n1 n! ^. S! W
:title "Direction"
+ s- |$ L# [8 ]" c. g3 q
)
/ ^, o' A" L% x. K" ]
(len ;;定义组装长度3 [: s7 m# z. r) ?$ J5 A
:value-type :positive-number7 M4 {3 \+ D0 s2 G& I$ Z/ u
:prompt-text "Specify Mounting length"7 ~) O K) n6 z* s |+ Y. w2 J
:title "Mounting Length"
3 C2 c) U6 }% }6 g
:after-input (after-len-action)
2 Z2 r* o/ N7 h% _" S6 G
)% r9 T7 R* P6 ^$ n5 Y
(kraft ;;定义变形力（受到压力）: C% f/ l2 K z: d
:value-type :display-only
" i8 y+ V9 \: ]/ [- p' ~) Z8 c
:title "Force"
1 U1 h, w. z) y) ?7 s
)
+ |/ o% {5 I4 q/ V, B m
(lab :value-type :boolean ;;定义逻辑值
6 W: W3 T- i9 o( q' ^* X$ d
:toggle-type :wide-toggle0 Y L( P7 z& C* F8 r
:initial-value t/ D. k" ]. N7 F! e" k
:title "Labeling": B4 t. M2 p# E4 c9 r. F
)
$ ?' c, p6 `- r9 V( j1 @1 V
)

复制代码

以上为部分

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

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif/ f: Q8 f7 e: O3 B
我还没有这么深的层次，不了解lisp语言
- `) ]- p) t2 z3 p我想问一下kting- W$ C7 s' U% g4 u5 T, ?
此程序的力量计算结果是否正确

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

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.gif8 S: w% p9 e; @- `7 K
这个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 的帖子

浏览过的版块