重奖:解剖画弹簧的lisp

sytgos

lisp下载

http://www.3dportal.cn/discuz/vi ... &extra=page%3D2

5 E8 P$ P$ Q7 F6 f: Q1 `- N

短短23K的lisp却搞得我头都大了…
5 w" y7 H, O: o% o6 y: L5 r谁能把function部分他判断数据是否正确用普通话表示一下,重奖…

* y: z& B# u* {4 }4 r
或者根据你的经验给出输入数据之间必须保证的关系

kting

斑竹是想了解after-xxx-action条件语句呢？还是如下数值判定
" x: O' B7 R3 x/ ?( B! K(defun dc4-zugfeder-pruefe (durchmesser draht_durchmesser windungen einbaulaenge)
/ v$ K: i0 m& n4 ~1 i(if (and durchmesser draht_durchmesser windungen einbaulaenge)
  (if (and (> durchmesser (* 2 draht_durchmesser))
3 y/ y/ V3 k) I% o' q" H           (> (/ (+ (- einbaulaenge (* 2 durchmesser)) draht_durchmesser) windungen) draht_durchmesser))
   :default
   (values :error "Spring is not really produced!")
) w- {  M; e. S0 b1 s  );;
  :default
7 Y: \$ l0 p% n2 W8 W" q6 M);;
8 A0 y3 s9 }, t% N% v)语句呢？
) ]! B3 ]  ?8 P: ^: e* o% ?4 T
# E+ D# ]1 h2 `. A9 l前者的functiong为条件当输入参数数值非0时，某变量赋予哪些值的作用
& J% h: ]* w6 c$ O9 \$ p6 i
6 B/ c# U/ A* s: |  q; {若为后者例子，可理解为：
  L; z" n+ L5 t) z# X
当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

我还没有这么深的层次，不了解lisp语言
我想问一下kting
此程序的力量计算结果是否正确

sytgos

还想知道具体参数都是什么因为是德语,没看懂啊...

3 M& ]8 g0 ]/ T就是类似于下列这种,假如当中径为1时线径为0.1弹簧可生成,小于一提示错误...
( ]& \+ S% R' j+ A; o9 ?4 A- v$ M
[ 本帖最后由 sytgos 于 2009-2-17 15:01 编辑 ]

kting

原帖由 sytgos 于 2009-2-16 12:00 发表 http://www.3dportal.cn/discuz/images/common/back.gif
- q9 q3 O. K; p5 ?: O还想知道具体参数都是什么因为是德语,没看懂啊...

就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

, ^5 ^1 N1 g; `8 s6 Q可以使用在线翻译看看....在大概了解单词的意思后，再弄懂原理.....我这边也再研究一下.

kting

1. (sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框
   " s+ N# t2 P3 n* C+ x4 E
2. :dialog-title "Pressure Spring"
   
3. :dialog-type :terminate
   8 t5 x9 l  M! x7 ~7 ^  Z
4. :variables
   
5. '( ("Material")
   
6. (mat ;;定义材料
   & o% a( c0 T! B. f, V6 B' E9 w
7. :range ((81400 :label "Steel") (71600 :label "stainless steel"))
   
8. :title "Material"
   6 H# g! U! R. p% |1 `# X
9. :after-input (after-mat-action)
   , p9 M! w5 {7 o" u
10. )
    ) b7 {; y) @+ {* S4 y4 `
11. ("Dimension") ;;中径
    
12. (md
    
13. :value-type :positive-length
    , E: s6 U" w+ |; k0 E
14. :prompt-text "Specify Middle winding"
    
15. :title "Mean Diameter"
    8 B! W3 C  X$ @" V1 I) @  c
16. :after-input (after-md-action)
    % I) O1 S5 [7 t% b. ]4 j
17. )
    
18. (dd
    * f# m7 _5 v- g9 f
19. :value-type :positive-length
    
20. :prompt-text "Specify Diameter wire"
    ) x) Q. Q1 N8 h$ K5 L; u5 t2 |
21. :title "Wire Diameter"
    4 v: x) K; ?1 E% q) F7 a1 B- h
22. :after-input (after-dd-action)
    * I, _- `0 p) ~% B; ^) ]# Y
23. )
    
24. (win ;;圈数
    , H$ x6 x! C2 G2 D
25. :value-type :positive-number
    8 N' k$ r7 p0 D5 P
26. :prompt-text "Specify Coils"
    
27. :title "Coils"
    9 U1 p: I" y) C# e% e* h& I1 D
28. :after-input (after-win-action)
    
29. )
    
30. (frate ;;形变系数
    
31. :value-type :positive-number
    / z: R. I9 i" c' O$ }
32. :prompt-text "Specify Spring rate"
    ! d0 w9 ^, w5 ~2 @3 w- N0 A
33. :title "Spring Rate"
    
34. :after-input (after-frate-action)
    6 B/ Y* w; m! t5 Z! D
35. )
    0 R& Y. I# f2 ~) ?5 m
36. (len0 ;;长度
    % b3 k5 A. P9 W. ^
37. :value-type :positive-number
    8 \8 H& u% Y! Z0 V
38. :prompt-text "Specify Unencumbered length"
    ' I" h+ R; Q  _& d
39. :title "Length"
    % ~0 E1 e5 ]' w5 P9 h
40. :after-input (after-len0-action)
    
41. )
    6 e/ |' Y3 E9 U8 S& o
42. (del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力
    8 m3 O5 s( k  M) i
43. :title "Delete" ;;清零按钮
    
44. )
    
45. ("Mounting")
    : z1 |/ `$ d0 H( g4 T' I) U
46. (bgr ;;定义组件
    
47. :value-type :assembly
    
48. :prompt-text "Specify Assembly"
    ( V- s4 M3 B  U/ s) u
49. :title "Owner"
    6 p" Q% l6 j- d1 I
50. )
    % E3 l" W3 K: _  y4 ^) f  i1 k
51. (stp ;;定义启始点
    
52. :value-type :point-3d
    , ?9 O2 s7 v4 U
53. :prompt-text "Start Point"
    ( [( Z( r9 H9 v' X; d4 l
54. :title "Start Point"
    3 q: n. f7 T* W0 a
55. )
    
56. (rcht ;;定义方向
    7 v( C& f" {: B* A( G7 b/ s8 w
57. :value-type :measure-direction
    ) [! O8 i5 O0 H. N. l" K, s; N- ^
58. :prompt-text "Direction"
    
59. :title "Direction"
    
60. )
    
61. (len ;;定义组装长度
    0 S+ x% k/ I- S  @8 ~; r
62. :value-type :positive-number
    ) Q8 e1 `4 V! {7 T
63. :prompt-text "Specify Mounting length"
    
64. :title "Mounting Length"
    9 \8 S6 U, d. R; ?. k6 l
65. :after-input (after-len-action)
    # P4 ]+ O+ ]0 b" e0 d9 F
66. )
    4 M2 b  L0 E) a8 k5 x) _
67. (kraft ;;定义变形力（受到压力）
    
68. :value-type :display-only
    7 V/ j( U0 r7 ]0 S
69. :title "Force"
    5 q' ~, a- R1 t: }1 }; c3 F- N" o/ w
70. )
    4 I7 u( m. `. p. j* d0 z
71. (lab :value-type :boolean ;;定义逻辑值
    
72. :toggle-type :wide-toggle
    
73. :initial-value t
    6 R1 Z) G' m& I; A( J
74. :title "Labeling"
    , i* _; U0 J" M. P5 k
75. )
    % f9 N7 U- n' Y2 b4 T: J
76. )

复制代码

6 x  d4 o3 `  N2 Y3 [( v1 a以上为部分

kting

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif
我还没有这么深的层次，不了解lisp语言
我想问一下kting
此程序的力量计算结果是否正确

% E, \' x$ I' Q该程序只有两种选择为普通钢和不锈钢两中材质的弹簧，只要你输入正确弹性系数就正确啦

sytgos

经济危机下常来的兄弟越来越少了...
kting兄弟怎么样?有影响吧...

kting

一样有很大的影响，公司在未来的日子怎么的计划还不明确，可能要裁人，可能要搬厂，如果那样子的话就意味着失业等着

sytgos

这个lisp里面算力的公式是什么?

kting

原帖由 sytgos 于 2009-2-18 16:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif
这个lisp里面算力的公式是什么?

1 b2 P- x8 R- I8 d6 e3 G' R
; n% a" ]) P/ x4 M  s以压簧为例：
1 D. V! @2 E) ~2 |+ ]2 f" xfrate=(4*dd^4*mat)/(8*win*md^3) --->程序中出现变形系数、材料系数（钢为81400，不锈钢为71600）、弹簧中径、截面圆直径、圈数关系

Kraft(压力)=(len0-len)*frate --->即F=k * x
) p9 y/ R2 z! P% ?
下附件为以压簧为例子的程式加简单的注解说明，供参考.
: k" Y, b2 M- X+ j* ~7 H7 u' U
! o7 r6 x+ O0 z7 ^[ 本帖最后由 kting 于 2009-2-22 18:27 编辑 ]

kting

斑竹可以参考一下编辑过的档案