重奖:解剖画弹簧的lisp

sytgos

lisp下载
6 v1 o. r7 I" V% L3 R1 G
7 w/ p, v1 p+ T+ _http://www.3dportal.cn/discuz/vi ... &extra=page%3D2

% v2 S+ a- T) h, `  C& s. T

2 ^- z, X! R( e! T6 Y短短23K的lisp却搞得我头都大了…
% T" L' Y+ S  Z& l- g9 Z谁能把function部分他判断数据是否正确用普通话表示一下,重奖…

9 j3 @, {; A! z" `
或者根据你的经验给出输入数据之间必须保证的关系

kting

斑竹是想了解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))
8 _  I: a9 [/ T           (> (/ (+ (- einbaulaenge (* 2 durchmesser)) draht_durchmesser) windungen) draht_durchmesser))
+ i; H- q! x0 o4 ~' y5 l2 g% u   :default
5 c# k, }8 }' _" r4 K' O! [: ^   (values :error "Spring is not really produced!")
  b4 ~( R6 d+ s/ E  );;
7 N! M( [+ a0 G) \7 u  :default
);;
1 A+ B' w/ p- M2 D)语句呢？

前者的functiong为条件当输入参数数值非0时，某变量赋予哪些值的作用

若为后者例子，可理解为：
: |' d4 `% g- U# {* _
$ z, Y/ D# v% [当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

还想知道具体参数都是什么因为是德语,没看懂啊...
! X: x( S7 Y* ]# e) t- [, H
就是类似于下列这种,假如当中径为1时线径为0.1弹簧可生成,小于一提示错误...

[ 本帖最后由 sytgos 于 2009-2-17 15:01 编辑 ]

kting

原帖由 sytgos 于 2009-2-16 12:00 发表 http://www.3dportal.cn/discuz/images/common/back.gif
还想知道具体参数都是什么因为是德语,没看懂啊...
% c$ F" A2 B% e5 ~  F- X
( [  f; k5 U5 i2 A+ k3 V, v就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

& k$ ?  _: x. f4 L" j' H
可以使用在线翻译看看....在大概了解单词的意思后，再弄懂原理.....我这边也再研究一下.

kting

1. (sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框
   , K5 @4 Q8 t  {# s" L% ?. f
2. :dialog-title "Pressure Spring"
   3 D7 J) h% ~7 S; u
3. :dialog-type :terminate
   * y; j  o; B! Q5 o
4. :variables
   % ]6 L+ F; l3 A
5. '( ("Material")
   
6. (mat ;;定义材料
   ( Q+ H+ b, |4 @! ~7 T& c8 x/ j: E
7. :range ((81400 :label "Steel") (71600 :label "stainless steel"))
   
8. :title "Material"
   
9. :after-input (after-mat-action)
   
10. )
    9 j9 [! O" c+ A4 K$ W
11. ("Dimension") ;;中径
    
12. (md
    # q7 I- C2 ^' ^6 [/ i
13. :value-type :positive-length
    
14. :prompt-text "Specify Middle winding"
    4 _, x; y0 \3 M
15. :title "Mean Diameter"
    
16. :after-input (after-md-action)
    ) [, i* N+ X4 Q0 _
17. )
    ) K2 f1 [0 J- M( [0 C6 ~
18. (dd
    
19. :value-type :positive-length
    
20. :prompt-text "Specify Diameter wire"
    
21. :title "Wire Diameter"
    
22. :after-input (after-dd-action)
    
23. )
    5 ], W# _  i  H) T" h
24. (win ;;圈数
    0 ~2 W8 `1 ^5 M5 H' X- r& p
25. :value-type :positive-number
    
26. :prompt-text "Specify Coils"
    . B9 v, P6 J: i2 o6 k2 P
27. :title "Coils"
    9 j# F; X: C4 N- P# R% _. i8 r
28. :after-input (after-win-action)
    , d- t4 d9 x0 K; o! ]9 E2 k* q
29. )
    
30. (frate ;;形变系数
    
31. :value-type :positive-number
    & {, G: v% _* [0 ~4 _* W
32. :prompt-text "Specify Spring rate"
    7 P1 M3 u$ h# r% N3 M/ b
33. :title "Spring Rate"
    3 Z: t9 s  m3 z
34. :after-input (after-frate-action)
    
35. )
    9 @4 I7 Y" ?. Y9 n' ~7 M4 S& F" g4 F
36. (len0 ;;长度
    $ G4 i0 v, ?& U9 Q
37. :value-type :positive-number
    + T3 B& g9 b7 N" W2 l5 M
38. :prompt-text "Specify Unencumbered length"
    
39. :title "Length"
    # Z0 A- x7 B4 ^4 b
40. :after-input (after-len0-action)
    
41. )
    ( L: d* u, p3 s! `6 O3 D) 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为变形力
    
43. :title "Delete" ;;清零按钮
    
44. )
    
45. ("Mounting")
    1 F- d( T8 o, k' Q; f
46. (bgr ;;定义组件
    
47. :value-type :assembly
    
48. :prompt-text "Specify Assembly"
    ; Z/ V- A$ a" X% X$ y
49. :title "Owner"
    7 z( r. |3 F2 p: ]$ P8 @3 q+ l
50. )
    
51. (stp ;;定义启始点
    1 |; v9 y' E* X, X5 y% D
52. :value-type :point-3d
    $ u! {6 J& U1 f# r& S' E4 J
53. :prompt-text "Start Point"
    
54. :title "Start Point"
    
55. )
    1 D+ Y: C" y3 Y$ e1 K6 y! q" S+ K
56. (rcht ;;定义方向
    + q/ M8 V+ O! z% P
57. :value-type :measure-direction
    # y6 q- m! H% o6 [
58. :prompt-text "Direction"
      i& J# ^& V, B: b, @
59. :title "Direction"
    
60. )
    
61. (len ;;定义组装长度
    # N$ `& J# A4 s* g: ~
62. :value-type :positive-number
    
63. :prompt-text "Specify Mounting length"
    
64. :title "Mounting Length"
    
65. :after-input (after-len-action)
    8 m4 m: |2 x+ E- K8 k- W7 }
66. )
    
67. (kraft ;;定义变形力（受到压力）
    ( K: f6 @% h% P  X# m3 b
68. :value-type :display-only
    
69. :title "Force"
    6 Y2 K6 C! L5 }
70. )
    
71. (lab :value-type :boolean ;;定义逻辑值
    
72. :toggle-type :wide-toggle
    
73. :initial-value t
    
74. :title "Labeling"
    
75. )
    ) w7 d3 K' t* U5 P: z- `$ ^
76. )

复制代码

以上为部分

kting

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

6 N; |- j  u% U2 y2 i* ]该程序只有两种选择为普通钢和不锈钢两中材质的弹簧，只要你输入正确弹性系数就正确啦

sytgos

经济危机下常来的兄弟越来越少了...
# p& }5 u) R1 fkting兄弟怎么样?有影响吧...

kting

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

sytgos

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

kting

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

5 F! G+ B, w! \; g  z. o
+ [! a6 E& P- A; `3 [+ D以压簧为例：
. z; H& s' [) N1 Z, U" [- L6 ?frate=(4*dd^4*mat)/(8*win*md^3) --->程序中出现变形系数、材料系数（钢为81400，不锈钢为71600）、弹簧中径、截面圆直径、圈数关系

Kraft(压力)=(len0-len)*frate --->即F=k * x
3 K7 E# l$ N' W& g
# w) @0 |5 f1 Z; Y下附件为以压簧为例子的程式加简单的注解说明，供参考.

[ 本帖最后由 kting 于 2009-2-22 18:27 编辑 ]

kting

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