薄材钣金件自动展开

混沌初开 · 发表于 2013-12-5 22:14:27

求助一款自动展开的程式源码:
1.说明,R角处展开中性层公式为内R/T 得出的值在系数表中查出对应的K值,再用K*内R的值,从内R便宜此值及为中性层.
2.希望源代码内可以修改K值.

混沌初开 · 发表于 2013-12-5 22:27:48

本帖最后由混沌初开于 2013-12-5 22:33 编辑

这是图例!

XDSoft · 发表于 2013-12-5 22:50:28

画图能保证除完的数在表里面查到吗？，如果表里面没有怎么办？
另外，你把表每行一个子表，你给输入贴论坛来吧，也方便帮你写程序的朋友。

混沌初开 · 发表于 2013-12-5 23:05:16

本帖最后由混沌初开于 2013-12-5 23:07 编辑

XDSoft 发表于 2013-12-5 22:50
画图能保证除完的数在表里面查到吗？，如果表里面没有怎么办？
另外，你把表每行一个子表，你给输入贴论 ...

在表中没有对应的"K"时取一个近似的"K"值就行!
大神只需要给出一个公式,之后我在通过大量计算把表中没有的"K"值慢慢补上!
例如(if (and (> r/t 0.0) (<= r/t 0.3)) (setq k 0.3))
  (if (and (> r/t 0.3) (<= r/t 0.4)) (setq k 0.35))
  (if (and (> r/t 0.4) (<= r/t 0.5)) (setq k 0.37))
  (if (and (> r/t 0.5) (<= r/t 0.6)) (setq k 0.38))
  (if (and (> r/t 0.6) (<= r/t 0.7)) (setq k 0.39))
  (if (and (> r/t 0.7) (<= r/t 0.8)) (setq k 0.40))
  (if (and (> r/t 0.8) (<= r/t 0.9)) (setq k 0.405))
  (if (and (> r/t 0.9) (<= r/t 1.0)) (setq k 0.41))

混沌初开 · 发表于 2013-12-10 23:23:46

哪位大神回复一下啊!

luloveyan1314 · 发表于 2013-12-18 13:25:17

积分是怎么来的

wangxf888 · 发表于 2016-5-24 17:32:04

做个记号再学习

nuic-ljsh · 发表于 2016-6-5 20:01:26

r/t是什么意思，与K值有函数关系吗？如果他们之间有函数关系，就用不到表格了

账号		自动登录	找回密码
密码			立即注册

[编程申请] 薄材钣金件自动展开

点评