机械工程师软件大全（201512）更新了，增加了网上收集的软件并分类，更新了非标公制

兰陵缭乱 · 发表于 2014-7-14 21:07:56

经典图书

机械工程师软件大全（201511）全部上线啦。此软件是本人用了近十年时间经若干次修改
编制而成,现推出的201511版本压缩前已达80M，压缩后高达20M。如你需要最全版
一是请将你的QQ号码或邮箱写在回复上我发给你；二是加入QQ238138869群，在文件栏下载。
如你认为可以请顶一下我的贴子。

机械工程师软件大全(201512).part05.rar (4 MB, 下载次数: 150)

机械工程师软件大全(201512).part04.rar (4 MB, 下载次数: 116)

机械工程师软件大全(201512).part03.rar (4 MB, 下载次数: 114)

机械工程师软件大全(201512).part02.rar (4 MB, 下载次数: 181)

机械工程师软件大全(201512).part01.rar (4 MB, 下载次数: 82)

机械工程师软件大全(201512).part06.rar (2.42 MB, 下载次数: 158)

φ8 · 发表于 2014-7-14 21:08:09

收到，只是没安装成功，64位W8系统

lucianwang · 发表于 2014-7-14 21:08:11

经典图书

大部分人在计算三针测量M值时都有一个误区，当螺旋角≥3°的多线螺纹和大部分梯形螺纹都不能
用普通的三针测量M值公式计算，应用渐近法计算。
以下是VB原代码，我无偿提供给大家使用。
Private Sub Command2_Click()
Dim j, tt, a, b, e, c, cc, x, Y, ccc, u, uu, U1, m, X2, y2 As Single
t = Val(txtt.Text)
n = Val(txtn.Text)
d2 = Val(txtd2.Text)
d0 = Val(txtd0.Text)
r = Val(txtr.Text)
j = 3.1415926
tt = Format(((r / 2) / 180) * j, "0.000000")
a = Format(Cos(tt), "0.000000")
b = Format(Sin(tt), "0.000000")
e = Format(Tan(tt), "0.000000")
u = 0.5 * ((d2 / a) - (t / (2 * b)) + d0 * (1 / e))
x = u * a + (j * d0 * u * b) / (Sqr(4 * j ^ 2 * u ^ 2 + (n * t) ^ 2))
Y = -((n * t * d0) / (2 * Sqr(4 * j ^ 2 * u ^ 2 + (n * t) ^ 2)))
cc = (j / (n * t)) * ((t / 2) - (d2 * e) - ((2 * j * d0 * u * a) / (Sqr((4 * j ^ 2 * u ^ 2) + (n * t) ^ 2))))
c = -(Y / x) - ((2 * j * u * b) / (n * t))
ccc = cc - c
U1 = -((n * t * ccc) / (2 * j * b))
uu = u + U1
X2 = uu * a + (j * d0 * uu * b) / (Sqr(4 * j ^ 2 * uu ^ 2 + (n * t) ^ 2))
y2 = -((n * t * d0) / (2 * Sqr(4 * j ^ 2 * uu ^ 2 + (n * t) ^ 2)))
m = Format(2 * Sqr(X2 ^ 2 + y2 ^ 2) + d0, "0.000")
Text102 = Format(Atn((t * n) / (j * d2)) * 180 / j, "0.000")
txtm.Text = Str(m)
End Sub