重奖:解剖画弹簧的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
8 n2 c7 v. P/ x% G还想知道具体参数都是什么因为是德语,没看懂啊.... a& |1 c! W, W! F

0 ~3 Q* x% F; x1 N就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

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

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

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框
" b' q! z8 x3 e: Z/ m
:dialog-title "Pressure Spring"4 Z7 T0 T u# g* O7 {
:dialog-type :terminate
: D+ w4 I9 b/ P5 L2 l0 ^) @' ]
:variables! W9 l! O4 e0 f( V. M s
'( ("Material")0 z+ z3 y+ F* r8 C; F
(mat ;;定义材料
& G" X" B+ x1 N4 K6 ]4 k: ~3 b
:range ((81400 :label "Steel") (71600 :label "stainless steel"))
9 \9 ^6 ^- u: K- x7 `5 B3 f
:title "Material"- l. x( [! V7 V; i4 g) J0 k
:after-input (after-mat-action)
$ m( ~0 j$ j' L$ K. i+ a9 Y
)
W" O+ e! n4 v
("Dimension") ;;中径
5 |2 Q# f: G& J9 w
(md2 L* Y- v. O- w" W; T- y
:value-type :positive-length* g3 \* n, B3 C/ V! v
:prompt-text "Specify Middle winding"
' V# {. ]- q9 v$ s N
:title "Mean Diameter"
: q% S* F6 n! J. s, V
:after-input (after-md-action)
8 L! ^& Z0 t* O9 \' h
)5 g+ X0 h' x- E1 P0 l7 r
(dd
5 {9 r$ G# @0 t& L5 U- ^8 o# a% Y
:value-type :positive-length- y& g( @- C9 s- q$ M+ y! s' i' C
:prompt-text "Specify Diameter wire"7 z8 w# C5 P9 R! D& q3 H9 ~
:title "Wire Diameter"
0 @: `1 o0 a+ ~0 T% M
:after-input (after-dd-action)4 n$ t" U, a: H# u+ h& y$ V
)
+ i( m8 m+ |! T: A! e$ |5 `
(win ;;圈数
& @' A) q, m$ p: ^/ H+ [ l
:value-type :positive-number
& K- l, J3 V8 ^# s3 _- Y
:prompt-text "Specify Coils"
, w7 b, f" T7 p2 U# ` N0 w
:title "Coils"7 L# W8 W% _5 Y4 x4 K, y9 c# E
:after-input (after-win-action)
) K4 J4 a. r4 @
)
6 i3 }, r; i7 k1 y( z
(frate ;;形变系数; B) X* y. W/ P6 L; L
:value-type :positive-number) C4 T7 m; }+ C9 N( [
:prompt-text "Specify Spring rate"0 w1 {* k; p# c' l6 d% m, }
:title "Spring Rate"
$ F; Y5 t2 k- u0 ^( Z d$ ]" P
:after-input (after-frate-action)
1 k1 ]- M4 f' P
)
, W! _( k5 ~$ g9 N1 @# f. j3 f
(len0 ;;长度% H' E& d% k# C* z3 I( t* \& q% s
:value-type :positive-number1 r* A/ i- c r* q8 u1 V
:prompt-text "Specify Unencumbered length"
5 g' M% t8 }6 s" }
:title "Length"
( U" v' \9 ~& F" y7 J% X& ]+ ?
:after-input (after-len0-action)
* t9 H! P) `; d9 J& C+ C, B
)% D7 v2 @3 ?7 o. G# e
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力
' e6 l4 @2 J3 g1 J$ B) S
:title "Delete" ;;清零按钮
) ]% w/ D! E5 i* ~2 | V
)
3 m1 p, ^) x# L8 D( [/ ?
("Mounting")
, \! K) y& ?4 a4 m; v! c3 g
(bgr ;;定义组件
5 Z1 Z7 e# U* ?/ O$ q1 m
:value-type :assembly
3 r3 Q' m+ u( Z! N5 W
:prompt-text "Specify Assembly"3 f) L1 J; C6 f8 \
:title "Owner"( t; V5 @9 @' n/ J5 P, `- X8 m
)4 ?: K: k& N+ n: t
(stp ;;定义启始点
. {2 D5 O5 z ~' t( H$ L# b w
:value-type :point-3d; L0 t$ v& D! x$ l
:prompt-text "Start Point"
& V; R3 h6 I- F% p
:title "Start Point": r' r* n0 h4 `! e- d
)( F: h& @6 T) k8 s. `% Z+ E
(rcht ;;定义方向
& V( v4 ?8 K& X; ~4 J9 u
:value-type :measure-direction$ W; {/ Y! m& F! C+ j9 s0 a
:prompt-text "Direction"
6 S0 t+ ]# Y1 J; R
:title "Direction"
8 I& R3 W' ^. U+ P' s3 I% x2 \
)
1 O8 {$ f: F! Z3 M7 z/ x
(len ;;定义组装长度
1 F/ K2 g9 b, i* G( K c! }
:value-type :positive-number
+ B! {& i z2 |
:prompt-text "Specify Mounting length"" }4 e' Y' o( a2 ~0 N6 W0 d: L. G, k
:title "Mounting Length"
_4 p: N9 \0 d5 Q
:after-input (after-len-action)
/ R n& O* J0 A- G& e9 C
)/ K3 V7 V! x0 n3 y1 M, M) I. |/ u7 \
(kraft ;;定义变形力（受到压力）
' B5 M2 O! g/ M: G1 L! R. q& h
:value-type :display-only
/ U* t( D8 P& t0 k) w0 e. ~
:title "Force"
/ K. V4 @) D# G
)$ t" R. x4 c* }$ a# v% a `
(lab :value-type :boolean ;;定义逻辑值 o6 _& T7 Y. F
:toggle-type :wide-toggle- |, u0 K# E. T+ |5 H4 M' {5 q
:initial-value t
' O; X2 l8 Z9 M; k1 a, }4 `+ x& y. W
:title "Labeling"
/ a7 f2 l& A$ \: |0 A- F: r
) I& f, G) h" P6 ?5 p: Q
)

复制代码

以上为部分

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

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif, p5 w& K) h7 d( x% y% X
我还没有这么深的层次，不了解lisp语言
- B3 k) b7 }, R8 O我想问一下kting
]+ y- B- r& X0 c此程序的力量计算结果是否正确

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

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
$ o/ F! J; g6 [' j这个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 的帖子

浏览过的版块