重奖:解剖画弹簧的lisp

sytgos

lisp下载
6 r7 k2 B% A2 w; f
1 L* ]0 W5 I3 G* d2 P; Shttp://www.3dportal.cn/discuz/vi ... &extra=page%3D2


3 b0 Y0 [/ S" a9 ^  L
- }& K) T+ z+ L$ ?* T- }) @8 b: p, B短短23K的lisp却搞得我头都大了…
7 @" U) I5 B. a7 @7 @( W谁能把function部分他判断数据是否正确用普通话表示一下,重奖…


或者根据你的经验给出输入数据之间必须保证的关系

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))
- Y. s: C$ Y/ j# s           (> (/ (+ (- einbaulaenge (* 2 durchmesser)) draht_durchmesser) windungen) draht_durchmesser))
9 u+ \7 C+ a% U5 K0 e, P$ A   :default
   (values :error "Spring is not really produced!")
. o4 j, I% }& C" w5 c' `* ~- q  );;
  :default
);;
)语句呢？
7 ]7 ^, B& v/ G9 [
2 S1 c+ l# ?+ D! Z2 f前者的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

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

sytgos

还想知道具体参数都是什么因为是德语,没看懂啊...
7 w/ k/ C* \$ K
就是类似于下列这种,假如当中径为1时线径为0.1弹簧可生成,小于一提示错误...
1 w. J3 k3 w. s+ v$ E% ?
[ 本帖最后由 sytgos 于 2009-2-17 15:01 编辑 ]

kting

原帖由 sytgos 于 2009-2-16 12:00 发表 http://www.3dportal.cn/discuz/images/common/back.gif
% M& q' q. r2 M还想知道具体参数都是什么因为是德语,没看懂啊...

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

& l% [9 Y/ d# s, z0 w% g
可以使用在线翻译看看....在大概了解单词的意思后，再弄懂原理.....我这边也再研究一下.

kting

1. (sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩（压力）弹簧对话框
   $ C5 ?$ Z$ u* n
2. :dialog-title "Pressure Spring"
   
3. :dialog-type :terminate
   # d$ x/ @5 ?9 l9 L: n
4. :variables
   " Z# I/ `1 U  M5 A" H
5. '( ("Material")
   + F% l% J: @: X! D! p& v* E
6. (mat ;;定义材料
   ( r) M* q6 U/ x2 o
7. :range ((81400 :label "Steel") (71600 :label "stainless steel"))
   6 R' W1 ?$ S6 i  ~" `
8. :title "Material"
     x9 ]5 \, c% H3 o" q/ z& o" f
9. :after-input (after-mat-action)
   & T% Z  p1 u; O8 {
10. )
    7 ?- t; {# S+ x, D
11. ("Dimension") ;;中径
    
12. (md
    7 n  g4 I& v1 P
13. :value-type :positive-length
    
14. :prompt-text "Specify Middle winding"
    % R' z- H3 b) H5 j9 P- l# m; Y
15. :title "Mean Diameter"
    2 J9 f) K  y# u' f& f$ T6 R
16. :after-input (after-md-action)
    1 N) m4 v# T, z+ R$ ]7 o
17. )
    1 _" f0 n; W3 j9 ~8 i2 _( M
18. (dd
    , z) ]- n' Q% I9 }, u. @% h
19. :value-type :positive-length
    
20. :prompt-text "Specify Diameter wire"
    , a3 ~* S$ _5 I9 a3 u4 Y9 p9 z9 ?
21. :title "Wire Diameter"
    ! t, p2 j9 [/ Z# P
22. :after-input (after-dd-action)
    
23. )
    0 n" H1 ~- l  o9 X- K9 V
24. (win ;;圈数
    
25. :value-type :positive-number
    $ ~# n3 R7 |6 j9 U( y" l1 _9 G# F
26. :prompt-text "Specify Coils"
    
27. :title "Coils"
    * y0 O3 g' f. W. w+ t) t5 @( V
28. :after-input (after-win-action)
    
29. )
    
30. (frate ;;形变系数
    / l3 m2 v& P( i$ |& s# r' n
31. :value-type :positive-number
    
32. :prompt-text "Specify Spring rate"
    ) T+ G  @8 c5 V& p, n3 I* W
33. :title "Spring Rate"
    + p: D5 E+ e' R* a1 C
34. :after-input (after-frate-action)
    3 t9 z6 [- N# o: a: `: v, [
35. )
    
36. (len0 ;;长度
    ) e+ M# _! J1 G' r
37. :value-type :positive-number
    . v& I8 G) _4 G5 L9 U: z
38. :prompt-text "Specify Unencumbered length"
    
39. :title "Length"
    4 G7 N/ e# |* J/ F
40. :after-input (after-len0-action)
    
41. )
    
42. (del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力
    4 t% S' _. F- I4 i
43. :title "Delete" ;;清零按钮
      ~3 ~: b8 ]& L) Y4 p8 l' N" z5 {
44. )
    
45. ("Mounting")
    . w/ e9 b0 N/ u4 M3 l
46. (bgr ;;定义组件
    & e! n- R5 H+ k" O  o% z' |6 J) a& _
47. :value-type :assembly
    ' K5 c  L1 U6 Q1 c! {7 z" w
48. :prompt-text "Specify Assembly"
    ! Q. t+ `* E7 R) G1 T: j4 Z& P, H
49. :title "Owner"
    9 t- r( a1 Y- m) [
50. )
    
51. (stp ;;定义启始点
    
52. :value-type :point-3d
    1 z0 _- `; o. P! j4 _
53. :prompt-text "Start Point"
    
54. :title "Start Point"
    
55. )
    
56. (rcht ;;定义方向
    % t# C+ L; o  `$ i! X1 X) I
57. :value-type :measure-direction
    
58. :prompt-text "Direction"
    * E$ @! y  s, s* j
59. :title "Direction"
      d+ z: p! i* o. `: Z1 W
60. )
    " ]" g; W8 \, Y1 b
61. (len ;;定义组装长度
    # x  ?4 `) u  M: A  E
62. :value-type :positive-number
    
63. :prompt-text "Specify Mounting length"
    ! L& ?3 T8 ]9 ~5 o$ L
64. :title "Mounting Length"
    $ U& f' I7 K! z3 U  `# D2 Q
65. :after-input (after-len-action)
    
66. )
    
67. (kraft ;;定义变形力（受到压力）
    ' L9 _1 j5 X$ k! ?& e( }. @
68. :value-type :display-only
    
69. :title "Force"
    
70. )
    * a0 P/ G# F4 j& V! N6 F1 W
71. (lab :value-type :boolean ;;定义逻辑值
    / P' m: M' \# D$ \/ O5 h8 C
72. :toggle-type :wide-toggle
    
73. :initial-value t
    
74. :title "Labeling"
    ' t8 w# S* S! V9 i9 _" Y* O
75. )
    $ X; F! k: B, W1 j1 z
76. )

复制代码

0 Q) g3 f8 \$ A  W8 ^0 ~1 _7 {' t以上为部分

kting

原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif
我还没有这么深的层次，不了解lisp语言
我想问一下kting
: p3 z* Z- P5 y; |9 `7 K( {* ^9 d此程序的力量计算结果是否正确

* y$ ?4 q* J% x该程序只有两种选择为普通钢和不锈钢两中材质的弹簧，只要你输入正确弹性系数就正确啦

sytgos

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

kting

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

sytgos

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

kting

原帖由 sytgos 于 2009-2-18 16:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif
$ ?. `& D0 X( \/ E2 p; m这个lisp里面算力的公式是什么?

以压簧为例：
% I* ]0 N4 Q# I- z5 Jfrate=(4*dd^4*mat)/(8*win*md^3) --->程序中出现变形系数、材料系数（钢为81400，不锈钢为71600）、弹簧中径、截面圆直径、圈数关系
; j: b$ P1 n! j4 c% Y; L0 B
Kraft(压力)=(len0-len)*frate --->即F=k * x
0 \% A5 W. i5 q1 k5 [$ e8 v! S
下附件为以压簧为例子的程式加简单的注解说明，供参考.
; f# `' j$ Z& M
[ 本帖最后由 kting 于 2009-2-22 18:27 编辑 ]

kting

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