重奖:解剖画弹簧的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( d! g# a7 n9 H; \! ^. ~
还想知道具体参数都是什么因为是德语,没看懂啊...
' }, k3 w# z$ `7 P- l7 h+ l4 I* h8 _, O
就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

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

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

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框" m4 n9 o- d6 L3 t$ R$ r
:dialog-title "Pressure Spring"
! x: s2 O5 ?7 t$ H
:dialog-type :terminate5 Y- \! j7 B1 W/ i4 A2 R2 @
:variables
/ g+ h/ z4 O+ N: [
'( ("Material") s" C6 o6 Z/ h- X( |: b1 [
(mat ;;定义材料
1 q/ n) A% { S6 Z) D* x/ }0 y
:range ((81400 :label "Steel") (71600 :label "stainless steel"))0 T! v {2 G, d4 n" `
:title "Material"
~0 K# |0 `9 m: A; a5 `% t; ~: i
:after-input (after-mat-action)
$ o; J8 L& A" H9 r
), j: k2 U d4 n: @- X$ Q1 Q
("Dimension") ;;中径2 o8 F3 q3 H" Q% @# ~+ @ m$ L
(md% d1 x" p3 h( p' l: D( {
:value-type :positive-length: E, W* c& v: T
:prompt-text "Specify Middle winding"
6 k; P( h5 b; z2 V- q4 M1 @+ t8 q
:title "Mean Diameter"
0 B( A9 B% g4 u
:after-input (after-md-action)
7 d1 n& x* r& b: Z5 X
)
# B q- i. }9 T( C
(dd
* k) ^4 F5 U7 i w2 q% D$ a
:value-type :positive-length' I% ~1 c2 Z8 H6 ^9 z. ]
:prompt-text "Specify Diameter wire"
`' }9 L+ B/ C5 t5 C
:title "Wire Diameter"
# H4 E; N5 S% P3 F8 r1 v
:after-input (after-dd-action)3 E2 s7 @1 ~4 \8 F
)) z. f$ w; g7 v B* g
(win ;;圈数4 @5 y( h" \* G
:value-type :positive-number ~5 x' Z8 M+ o6 ~& D4 e! b# C9 Z
:prompt-text "Specify Coils"5 V/ C. e3 ]% s6 V6 f/ l8 Y5 O
:title "Coils"
1 o" ?1 l B* F/ C
:after-input (after-win-action)" J! K8 H7 r) o4 D; ~
)
2 i. N5 l$ L/ x/ \+ y) {& f
(frate ;;形变系数" }3 l/ z& `7 q9 o. H0 N9 o
:value-type :positive-number
) q& }# d7 n9 i5 s
:prompt-text "Specify Spring rate"6 i0 ]% u; n- v
:title "Spring Rate"
! o: n: i" @$ Q$ c$ ~
:after-input (after-frate-action)
( L# F+ G* V+ h3 x7 w
)
+ _+ W& V; j& A2 L: b" U: C& L0 E+ E/ V
(len0 ;;长度* r, `4 ^9 A8 N! W6 `
:value-type :positive-number
: w' e# e& |0 O" |' x; z7 C
:prompt-text "Specify Unencumbered length"
: p4 ?, X/ u/ @) v# }
:title "Length"4 p7 b) i) X$ G0 b+ a
:after-input (after-len0-action)2 k1 p! _4 {% S! i; M
)8 B2 W5 c# V4 T# q# ], ?
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力% I, P F$ M& \( I2 T
:title "Delete" ;;清零按钮
- P' w, u$ G. m9 u
)+ s. Y# L) D! N5 A
("Mounting")/ y T% D0 E2 C; l# {
(bgr ;;定义组件
4 U) H1 i6 {) n
:value-type :assembly
& _ o1 p; A, i* h2 j$ Z# T
:prompt-text "Specify Assembly"7 v3 d) G6 {8 J. L, \
:title "Owner"
7 P- R8 R. G6 z: d' q
)
6 z: ~3 |8 ?8 Q7 G$ F* q1 P
(stp ;;定义启始点
2 x$ S$ [2 ?4 @4 E
:value-type :point-3d
1 b) n' I4 J' l+ B( s
:prompt-text "Start Point": E* g% T' Z+ n% c
:title "Start Point"
( G9 s( |- b1 Y, ~! o
)0 M- k& w( A0 Y4 w" N$ F
(rcht ;;定义方向# K# M: V6 C4 ?1 s5 m
:value-type :measure-direction
" W4 S# v; c+ V7 }
:prompt-text "Direction"
) F3 f( A7 p7 c; r; I# g5 C
:title "Direction"% r/ V# M$ i& N1 I; b3 D
)
" s8 |4 d- Q# D. a9 w3 p/ e$ A
(len ;;定义组装长度
( \/ G* }$ m7 G/ }# V
:value-type :positive-number
+ d& |6 G5 \ h; v
:prompt-text "Specify Mounting length". |; K4 D% \' S! k* h
:title "Mounting Length"* Q8 A/ N+ m, x" p
:after-input (after-len-action)
: k# e( p$ |3 f3 Z
)
. q5 o- n: N7 _8 M: v8 u! t5 A
(kraft ;;定义变形力（受到压力）& P: ~1 f8 ^# i" o0 A: s" B
:value-type :display-only
& j, [) i6 }1 @+ r# M" ]
:title "Force"
7 i3 Z" I1 W3 w1 H( D/ G
)& F' ?* V! I) {* a; |9 k/ A# B7 j
(lab :value-type :boolean ;;定义逻辑值
! T/ {$ t, z4 K+ k5 T. W
:toggle-type :wide-toggle( ^; l4 P4 l+ x# |: d) t1 t( Z
:initial-value t
I% j; ?5 v. g! ?
:title "Labeling"
& k: H& \/ L8 L6 ?
)
& l7 V e" H# l0 g$ n, p2 W
)

复制代码

以上为部分

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

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif4 e$ }3 I* x. |' H4 Q
我还没有这么深的层次，不了解lisp语言8 w3 P% J6 c$ G$ c
我想问一下kting; l: ]8 n! q- S( j! y
此程序的力量计算结果是否正确

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

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.gif3 ?5 f0 N9 x/ I" \, z8 ~
这个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 的帖子

浏览过的版块