重奖:解剖画弹簧的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" o H5 j. @0 u r
还想知道具体参数都是什么因为是德语,没看懂啊...: ` H( o* R* O6 U4 |2 ]
1 M- e* P* ]8 v6 W/ ?
就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

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

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

(sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框
' j# I1 U( Z9 A* T/ O( G; `
:dialog-title "Pressure Spring"
`2 l5 Y C: n/ I/ w
:dialog-type :terminate
/ q8 o4 E# e5 m8 M
:variables% k+ R5 l) s. R8 V' i( I3 O, C; j
'( ("Material")
: b: Y! k2 o( R: U/ q) \0 ], M9 k$ o
(mat ;;定义材料
! k f0 G8 C" R* j5 ~8 \
:range ((81400 :label "Steel") (71600 :label "stainless steel"))
9 l4 K+ @2 J8 E0 n
:title "Material"& [8 L8 Z+ s; W; ]$ |
:after-input (after-mat-action)
# I3 x! j7 P4 @" u
)# f2 K0 R) v& X2 J& `
("Dimension") ;;中径
' |' U/ T, z# z0 Z
(md/ H2 ]1 v' j! f$ [# f0 S
:value-type :positive-length
% f) y$ U- F# u: z) o
:prompt-text "Specify Middle winding"; } y! o5 S3 k0 b& F9 f' {( |8 a
:title "Mean Diameter"
/ o/ W6 u+ M9 c4 l. a7 v6 t; F: V0 \: D
:after-input (after-md-action)& l/ T9 k2 R+ Q* o1 {* V
)- ]0 H" ?0 S; M# D D6 X
(dd
7 ]5 Y6 C7 ]& k. I. }
:value-type :positive-length; D. {: D( E0 Q+ A0 ?5 O P* R
:prompt-text "Specify Diameter wire"9 V4 P0 q3 r% o% h, g
:title "Wire Diameter"3 h, o9 \, c! A E. f! ^
:after-input (after-dd-action)) K% u9 d( x9 [' w! {8 ?
)
4 A5 N; l+ `9 W( P% ^7 \7 w# Y4 [
(win ;;圈数
( Q( L4 h2 f. X% F( k5 n6 Z
:value-type :positive-number3 @3 X/ x# g& U0 \4 x
:prompt-text "Specify Coils", t* o5 y8 |. J& T: w# ?
:title "Coils", S! M1 K$ r. R. w( C4 K- f
:after-input (after-win-action)
: u0 _- y d9 }7 n% v
)+ c0 x9 \: Z; A) r
(frate ;;形变系数$ s1 q q) l/ r$ j6 o% X
:value-type :positive-number
- R. g/ B2 r. L- Q' c1 ^
:prompt-text "Specify Spring rate"
' A: q) a+ O! ?: d7 I: T# Q
:title "Spring Rate") e" K0 n, v/ }: \8 ~. P# F
:after-input (after-frate-action)
$ O$ \3 U+ L* y* B$ r
)
: B/ N( f* T( }
(len0 ;;长度6 @5 _4 Z% v" L# e ^6 r* _
:value-type :positive-number8 F. @3 S* G! ]. j$ \
:prompt-text "Specify Unencumbered length"
! j) `! K1 K6 `
:title "Length") a" H$ n8 C5 c5 d5 N7 |6 j
:after-input (after-len0-action)4 Z" a- F/ @9 i4 v& `
)" u$ Q0 i8 ]- l2 ~' P8 ^
(del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力( c* |6 c2 P7 R2 o
:title "Delete" ;;清零按钮
$ N/ R5 r! ?" r! ?; H3 I, u
)
! v8 A4 {. K5 y8 y2 J; V
("Mounting")- ]9 g: @1 _- o# e
(bgr ;;定义组件
* ]9 M1 C6 B2 ?0 a" c, v
:value-type :assembly$ d5 H5 l1 Z; i# W3 `
:prompt-text "Specify Assembly"
% m5 L( r/ E4 r3 k# O
:title "Owner"8 s2 v$ l6 B! x# e2 T$ ~; N
)3 ?0 e) t! {6 y* T1 J5 n
(stp ;;定义启始点
7 K" m7 m9 P/ s
:value-type :point-3d) j6 s) q' d0 _7 x, n% D+ h- K
:prompt-text "Start Point"
% M7 K i8 t7 q$ ~# S3 C
:title "Start Point"0 ?0 v( U0 }$ h6 a6 l0 m$ ~4 T
)
# i u6 @; a# n7 K6 y q: Q& U
(rcht ;;定义方向
4 I4 g# t: I/ _' r
:value-type :measure-direction
3 ]' b' M, `7 I: g l1 _/ W
:prompt-text "Direction"
C& L p* D6 x$ X7 d" }
:title "Direction"" g0 j+ R/ `; Y* J
)
! s' t/ o( s+ R
(len ;;定义组装长度* I* b+ P0 r: F1 W
:value-type :positive-number* q9 k5 k; u6 T% ~0 r+ t+ ]
:prompt-text "Specify Mounting length"# [" C# k! h7 S( f" u- f9 ]
:title "Mounting Length"
8 p, e& x2 G% `, a2 [+ _4 X5 R
:after-input (after-len-action)
' k& z" r1 c2 G6 _8 c, K
)
/ H/ @' _# F9 f. V8 }
(kraft ;;定义变形力（受到压力）
+ Q) k c/ {' a8 e
:value-type :display-only6 M/ h* C7 k, H- G1 V$ q
:title "Force"
. @) I" n0 l7 O( o# C
)8 b1 T; d: x/ K3 S) u0 _0 F
(lab :value-type :boolean ;;定义逻辑值
& t0 H0 A! ^6 U; s! p( l4 u
:toggle-type :wide-toggle
6 z0 @9 f: d0 m8 l8 O
:initial-value t
7 b/ g' ?% b7 i: e8 J$ `9 I
:title "Labeling"2 t. p. B) c' q4 ~4 R+ p* w8 J" s
)4 C. Y' C4 Z! a
)

复制代码

以上为部分

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

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif
1 o& j2 m$ }2 |& A0 H {我还没有这么深的层次，不了解lisp语言+ V) R, I+ e/ ]# c1 G
我想问一下kting) Z7 ^: ?* `, W h5 J# G3 Q
此程序的力量计算结果是否正确

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

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
- r T1 i$ e" _/ F; n这个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 的帖子

浏览过的版块