QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3837|回复: 11
收起左侧

[讨论] 重奖:解剖画弹簧的lisp

[复制链接]
发表于 2009-2-12 11:34:09 | 显示全部楼层 |阅读模式 来自: 中国香港

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
lisp下载6 ~! P* v+ m' u- x# ?/ t

( S( s; ^/ R6 Lhttp://www.3dportal.cn/discuz/vi ... &extra=page%3D2
) ?. c1 Z6 Z/ U8 G1 u
- y) P4 [* i. Q" y  T* W6 I1 ]  j) `* u6 r- ]; }$ x1 t
6 S' ?4 P3 o4 ]' K' c! D; D
短短23K的lisp却搞得我头都大了…
) C) _! W; ]) y/ g+ Q谁能把function部分他判断数据是否正确用普通话表示一下,重奖…
* K7 b" `8 r% S$ i6 Q8 ^- g2 s: ^& ?/ r* Y; I

' f2 @3 _+ W: @/ n( H/ |8 W% w或者根据你的经验给出输入数据之间必须保证的关系
发表于 2009-2-14 23:50:28 | 显示全部楼层 来自: 中国广东佛山
斑竹是想了解after-xxx-action条件语句呢?还是如下数值判定
# w8 _1 B2 M! h. Q(defun dc4-zugfeder-pruefe (durchmesser draht_durchmesser windungen einbaulaenge)- N( b; P- L$ x# Z0 N/ j
(if (and durchmesser draht_durchmesser windungen einbaulaenge)
, t+ l4 l& m" W& }# u) r  (if (and (> durchmesser (* 2 draht_durchmesser))6 `7 A# M3 i9 f/ W
           (> (/ (+ (- einbaulaenge (* 2 durchmesser)) draht_durchmesser) windungen) draht_durchmesser))( n! q+ l( }6 m3 O1 y  z  J$ }
   :default5 \0 _; R! c! `/ U/ {& P5 E& K
   (values :error "Spring is not really produced!")% R; w2 f% H4 w: i
  );;
- Q2 h/ m! _4 J; A7 j  :default/ J! m8 M4 N! Y0 }; s" x
);;
% q0 Z% h% R) q1 {  G! C' E)语句呢?
: p) d/ t6 _* C) K1 J8 v  W+ }5 k' y
前者的functiong为条件当输入参数数值非0时,某变量赋予哪些值的作用
- P9 n! C  M* s1 J4 \( Y' V8 F! j7 C1 I
若为后者例子,可理解为:* Y6 ^) Z/ q* b- A% ~0 K- I8 r
; H2 L8 C) T6 i3 G  l
当durchmesser draht_durchmesser windungen einbaulaenge等变量非0,同时durchmesser>2*draht_durchmesser且(> (/ (+ (- einbaulaenge (* 2 durchmesser)) draht_durchmesser) windungen) draht_durchmesser)时,弹簧可生成,否则提示"Spring is not really produced!"(无法生成)/ d) g7 W: y. F# _% o: h' s

8 |0 A! Z2 t6 |0 ~! t( ?2 i! j[ 本帖最后由 kting 于 2009-2-14 23:56 编辑 ]

评分

参与人数 1三维币 +10 收起 理由
sytgos + 10 应助

查看全部评分

发表于 2009-2-15 10:11:42 | 显示全部楼层 来自: 中国浙江温州
我还没有这么深的层次,不了解lisp语言
+ ]0 {) {/ Y. L7 T. r我想问一下kting
  `, V9 }0 f! y) x& V4 d此程序的力量计算结果是否正确
 楼主| 发表于 2009-2-16 12:00:51 | 显示全部楼层 来自: 中国香港

回复 2# kting 的帖子

还想知道具体参数都是什么因为是德语,没看懂啊...
* p) u& U. ]1 G7 v& W: P
6 K) O3 M. X1 f7 L5 _4 G; M% m& |就是类似于下列这种,假如当中径为1时线径为0.1弹簧可生成,小于一提示错误...
4 v; ~) h+ ~, ?3 S/ e$ @6 Y
6 Q' f+ T* n( y; {/ l+ A[ 本帖最后由 sytgos 于 2009-2-17 15:01 编辑 ]
发表于 2009-2-16 20:24:29 | 显示全部楼层 来自: 中国广东佛山
原帖由 sytgos 于 2009-2-16 12:00 发表 http://www.3dportal.cn/discuz/images/common/back.gif
8 e& j* V, K  u7 X. K4 E! C9 r, |还想知道具体参数都是什么因为是德语,没看懂啊...9 t6 `/ `6 R2 I* Y, H0 K

4 f+ f! G& J7 ~1 n1 u就是类似于下列这种,加入当中径为1时线径为0.1弹簧可生成,小于一提示错误...

. B5 ^1 V! a9 A8 E3 Y. j4 Q! ?) |% u) W. ^% P
可以使用在线翻译看看....在大概了解单词的意思后,再弄懂原理.....我这边也再研究一下.
untitled14.JPG
发表于 2009-2-16 20:48:23 | 显示全部楼层 来自: 中国广东佛山
  1. (sd-defdialog 'dc4-druckfeder-dialog ;;定义压缩(压力)弹簧对话框* J# e5 R9 q$ M8 w
  2. :dialog-title "Pressure Spring"
    % ?1 q8 o& n$ m! K6 {3 T
  3. :dialog-type :terminate
    # v. _' v# K; I
  4. :variables3 Y$ j$ s. i2 i. X6 T& ~7 q! j
  5. '( ("Material")
    : G8 ?7 t1 n8 E0 p7 v
  6. (mat ;;定义材料
    - |7 _- X. p  I
  7. :range ((81400 :label "Steel") (71600 :label "stainless steel"))
    0 F" X. @+ D/ @# Q  s, V8 V
  8. :title "Material"1 S& c; T' E8 S# p9 a& {
  9. :after-input (after-mat-action)' a4 H1 r1 R7 f, R4 N
  10. )7 I3 z" `8 `5 l; S& E- K* i7 D
  11. ("Dimension") ;;中径9 C8 }% L3 G0 ~1 S" f2 C& r
  12. (md/ z1 B! ^$ l7 B6 x1 H! b' c
  13. :value-type :positive-length
      r: f- }4 n: Y. A0 _  }
  14. :prompt-text "Specify Middle winding"
    / Z% ?9 N( q. j* d; e' t
  15. :title "Mean Diameter"9 B( X7 d( m1 s. C1 H+ i7 t9 g: \4 N
  16. :after-input (after-md-action)
    7 {. w  |1 Z; v4 q
  17. )* v  `# `6 q" {2 L8 B) f: t0 M) ~& u+ ~. u/ {
  18. (dd: [& p+ U$ c1 P9 @$ G5 F
  19. :value-type :positive-length
    9 M& e0 R9 B1 q. }% e% ?
  20. :prompt-text "Specify Diameter wire"& k4 K6 G/ Z) t+ U$ M1 J% O
  21. :title "Wire Diameter"0 r( k1 m5 r. {5 H2 L" n
  22. :after-input (after-dd-action)
    1 d( l( u4 j. x2 D# w
  23. )4 V( d3 V+ G  [) P7 ~/ {2 r
  24. (win ;;圈数8 y. V( O- l$ G2 _1 o! ~
  25. :value-type :positive-number
    3 _: k( r. {9 t
  26. :prompt-text "Specify Coils"
    " P% W& f, ?6 m
  27. :title "Coils"
    3 C/ b2 L5 f4 U1 _; q1 ^, P. }$ e& ?
  28. :after-input (after-win-action). n! Z- u/ e  z) c
  29. )6 L8 y) G' P4 g1 m* {1 j& ~  `
  30. (frate ;;形变系数& G0 L4 W) n- o8 ?
  31. :value-type :positive-number
    ! @( @' h6 [! j0 L) @
  32. :prompt-text "Specify Spring rate"- p( M% C" [$ x- W1 b' t
  33. :title "Spring Rate": `9 h4 I' I' j5 s* a4 i/ R& S6 L
  34. :after-input (after-frate-action)- W: q! {8 V$ A# e7 L
  35. )+ E3 b/ f6 Q6 c
  36. (len0 ;;长度
    * M) W3 q, R  g! ^" L# X
  37. :value-type :positive-number2 Z8 g' Z% j, w. `
  38. :prompt-text "Specify Unencumbered length"3 \# `4 J; e; Q: |7 u( \5 Q2 S! L
  39. :title "Length"
    ( d. O9 N! z1 R. i# W$ h  e6 i  d
  40. :after-input (after-len0-action)
    % G7 e+ z5 C" ]8 z' Z( g
  41. )8 b/ L; u9 r. ~
  42. (del :push-action (progn (setf md nil) (setf dd nil) (setf win nil) (setf frate nil) (setf len0 nil) (setf kraft nil)) ;;kraft为变形力- t8 s( e4 P* G& p) D& ]
  43. :title "Delete" ;;清零按钮3 |2 I+ v5 b6 X) R+ X/ P' S, f
  44. )
    : k! j. y* |: a: G) S
  45. ("Mounting")
    " f+ A) \! O  @5 _, P
  46. (bgr ;;定义组件
    4 j1 M+ K1 v, T! q% a
  47. :value-type :assembly( b6 P5 G- L- A3 D2 K* m
  48. :prompt-text "Specify Assembly"4 T9 _8 W8 }2 f' S) r) J) M
  49. :title "Owner"
    ' c9 e5 {; H& X& m
  50. )* D0 P" k6 c5 R  g$ o
  51. (stp ;;定义启始点
    ' s# C2 A, e- e  b
  52. :value-type :point-3d
    / P0 e  D9 c8 O
  53. :prompt-text "Start Point"
    ; A4 K8 h& n5 y0 k8 l) q4 ~
  54. :title "Start Point"8 j6 K3 W! P' q- H& Q% Q
  55. )6 ]" E- D* r2 \; z& D
  56. (rcht ;;定义方向( c# I! ]8 R0 f) n& A
  57. :value-type :measure-direction: t7 |# i, D5 g: _
  58. :prompt-text "Direction"# E. h' t" R& t$ G
  59. :title "Direction"4 g) l8 U8 B3 _8 G  L
  60. )
    9 y& C9 _& h: y- t* J2 l5 f
  61. (len ;;定义组装长度
    1 Z$ s  X% i* e  A- K
  62. :value-type :positive-number
      {- y. \9 o* b/ ]; \1 h7 }/ I
  63. :prompt-text "Specify Mounting length"
    6 N  @' J* I1 p2 \) [
  64. :title "Mounting Length"' H2 M4 s) K* G2 c
  65. :after-input (after-len-action)% f! ]$ H* y( ?) r, j6 M- [) b
  66. )
    2 s, P4 _3 n5 A4 z) F
  67. (kraft ;;定义变形力(受到压力)
    ' U" H* h5 T2 O: O) l" f* [0 w
  68. :value-type :display-only4 w) f4 Z0 f- o7 [
  69. :title "Force"6 E$ j/ S  @7 x$ \  X9 a+ q
  70. )2 U: h1 \/ o- O% ?& E- D) D: [( k; {
  71. (lab :value-type :boolean ;;定义逻辑值2 z/ ^3 [* p, P
  72. :toggle-type :wide-toggle
    1 t7 w! ~0 a- J( J$ B8 G# y+ e
  73. :initial-value t
      R# ?* v. |5 C, ?& Y/ G$ H$ I
  74. :title "Labeling"
    8 q* y) {- m' P$ i. {8 Z: S
  75. )
    0 Z5 X# @1 o  w! w, M9 L$ e
  76. )
复制代码

# c3 T1 r  ]% }; m+ B9 ^+ \1 ~
, I: s% ?$ x/ V- H: l; Q0 ~( ]; y以上为部分

评分

参与人数 1三维币 +5 收起 理由
sytgos + 5 辛苦了

查看全部评分

发表于 2009-2-16 20:50:53 | 显示全部楼层 来自: 中国广东佛山
原帖由 boll_lee 于 2009-2-15 10:11 发表 http://www.3dportal.cn/discuz/images/common/back.gif
" E& \3 z& w: B/ Q我还没有这么深的层次,不了解lisp语言
5 B) p5 K8 g8 k我想问一下kting) b" Z* C7 X: K* E) t) H1 Z
此程序的力量计算结果是否正确

/ f8 E" ^  ^- }% t5 n7 k  D) n* s/ Y
该程序只有两种选择为普通钢和不锈钢两中材质的弹簧,只要你输入正确弹性系数就正确啦
 楼主| 发表于 2009-2-17 15:04:13 | 显示全部楼层 来自: 中国香港

回复 6# kting 的帖子

经济危机下常来的兄弟越来越少了...
& m& a: V- k* ~* V  c% P( z& ^kting兄弟怎么样?有影响吧...
发表于 2009-2-17 20:32:41 | 显示全部楼层 来自: 中国广东佛山
一样有很大的影响,公司在未来的日子怎么的计划还不明确,可能要裁人,可能要搬厂,如果那样子的话就意味着失业等着
 楼主| 发表于 2009-2-18 16:43:31 | 显示全部楼层 来自: 中国香港
这个lisp里面算力的公式是什么?
发表于 2009-2-20 21:48:33 | 显示全部楼层 来自: 中国广东佛山
原帖由 sytgos 于 2009-2-18 16:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif
# n8 z5 K. m0 [- D8 O3 @$ V这个lisp里面算力的公式是什么?
5 E# x% y8 n: u* Y. u+ b
1 @. {: u8 `8 e' d; e6 A2 X
以压簧为例:
- r# \# i/ e/ x1 n" D+ W- efrate=(4*dd^4*mat)/(8*win*md^3) --->程序中出现变形系数、材料系数(钢为81400,不锈钢为71600)、弹簧中径、截面圆直径、圈数关系" T  X0 P5 m# ^4 W; W  g

( h4 V2 t# `: L( |; `9 w8 x, }Kraft(压力)=(len0-len)*frate --->即F=k * x
* m- O$ U8 K! y% R
5 ~, b: O" D- a) p- ^8 X. |' I下附件为以压簧为例子的程式加简单的注解说明,供参考." h& N, H* V: Z( L3 g7 @+ U

+ a0 a0 Z% \0 W5 u) N6 N8 |# {* z[ 本帖最后由 kting 于 2009-2-22 18:27 编辑 ]

Pres[1].Spring instance.pdf

83.55 KB, 下载次数: 20

发表于 2009-2-25 21:09:59 | 显示全部楼层 来自: 中国广东佛山
斑竹可以参考一下编辑过的档案
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表