机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 114919|回复: 150

齿厚,公法线长度,跨棒距,变位系数之间的换算2.0(VB版)070331更新(加入内齿,绘图等

[复制链接]
发表于 2007-1-30 01:58:07 | 显示全部楼层 |阅读模式

齿厚换算V2.0.0(更新日期2007.03.31)
新增内容:

1内齿轮的齿厚计算。
内齿轮时齿数请输入负值。如齿数32请输入-32。

2节径时的计算。
可直接在法向模数处输入负值。如节径8请输入-8。

3增加绘图功能。
拖动鼠标左键平移图像,拖动鼠标右键缩放图像。黑色的两个圆为分度圆和基圆。蓝色的两个圆为齿顶圆和齿根圆。可以让程序自动设定齿顶圆和齿根圆,也可以手工输入。相信这个功能对于经常测绘的朋友会很有帮助。可以直接将实物和图形进行对比,非常直观。

4增加公差的计算。
1.0版本也可以计算公差,2.0版本加强了此功能。
在2.0版中点击计算按钮后,不仅右边的中间值,最大值,最小值栏输出结果。左边的非输入项也会输出结果。也就是非红色字的部分都是输出项。这样就可以直接得到公差之间的换算。
例1:已知公法线齿厚为72.8801 +0.05 -0.08。想求跨棒距测量方式的基准值(与72.8801对应)及相应公差。输入齿厚及公差后点击计算按钮,可在左边直接看到跨棒距测量方式的基准值和公差,为200.7889 +0.1388 -0.2235。

& `. c6 e" Z9 E7 m; E3 i9 L

& L+ k0 {+ ^0 z5 t8 c6 Y

+ t. A) ?- Z5 O* k1 r

例2已知量棒直径5.5时跨棒距为200.7889 +0.1 -0.15,想求量棒为6时的跨棒距及其公差。输入齿厚及公差后点击计算按钮,可在左边直接看到跨棒距以外的测量方式的基准值和公差,这时输入新的量棒直径6,再选择齿厚区分为法向变位系数(只要不是跨棒距即可)点击计算按钮,量棒直径为6时的计算结果就显示出来了。

$ T0 R6 U6 p: C

7 N I' e+ K: J7 B9 ?# y1 O

8 m. P! F; ^3 m- h0 X1 @3 \( _8 M* r

/ \+ C# X" c+ F/ E1 @5 x; C/ F. b

" ~! q% E+ P- w% N) p

 

+ {$ U2 p' H; }! |/ z/ S

小技巧:

3 j3 i9 M2 U6 w" G6 S

1利用TAB键可以方便的切换到下一个输入框。

. A3 M* E. E5 Z* v" h- h) Y" u1 w

2直接按ENTER键与点击计算按钮“==>”效果完全一样。

Q, r2 m- \, y) D( x4 [ x7 t

注意:

( J& Y+ g4 U% f

1因为增加了绘图部分,可能在一些速度比较慢的电脑上不能流畅运行。我估计CPU1G以上应该没问题吧。下一版我会优化速度。电脑慢的朋友先关掉“绘制图形”功能吧。

$ o3 f9 ?7 Y5 u5 A/ V3 c7 N

2右边中间值栏指的是左边齿厚区分选中的齿厚形式(也就是红色字)的中间值所对应的齿厚,而不一定是左边的(最大值+最小值)/2。如本说明文件的第一张图所示,跨棒距中间值200.747131964568是指选中的齿厚形式跨齿距72.8801+(0.05-0.08)/2=72.8651所对应的齿厚。而不等于(200.927793437093+200.565408450337)=200.746600943715。相信大家都知道这一点,安全起见我在这里再罗嗦一下^o^

3 o m% m* U& m* U

如果您有任何意见和建议以及创意请告诉我(logxing521@hotmail.com),感谢您的使用。

" p2 U- g4 b/ _% R; D

 

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2007-1-30 13:05:30 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算(VB版)

好!!!
; e! y# g" G& x比我的完善和专业多了。
" j" ~- w3 i2 z2 `7 z! ^% S符号的标准本来就不统一,更别说每个人的使用习惯了。使用者明白就行。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-1-31 23:14:00 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算(VB版)

谢谢阿松鼓励,其实我只是加了公差,其他的和你的完全一样。
/ R5 ]( o4 d: ?这个齿厚换算所用到的函数将来会作为我其他计算的基础,所以在速度上可能有一定的要求,在涉及量棒测量里要用到反渐开线函数,我用的是二分法要计算40次才能达到2^-40左右的精度,乘上区间pi,计算40次的精度是10^-12左右,你用的是你以前说过的德国的跌代方法吗?那个效率可能要比二分法高一倍以上。没学过数值计算,我一般都只用二分法,可总觉得将来会影响效率,牛顿法应该比二分法好但我没用过(记得是要求导数),你近似计算时一般用什么方法呢?
回复 支持 反对

使用道具 举报

发表于 2007-2-2 17:44:29 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算(VB版)

数值计算我也没学过,那是研究生课程。我没学那么多。我用了德国的方法。
) G5 i2 c1 x1 ]: ], G  q平时近似计算就用学校里学的求导数的那种。9 o  O" N2 o4 J7 u; T7 z
回复 支持 反对

使用道具 举报

发表于 2007-2-5 19:57:24 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算(VB版)

非常感谢: J5 C& z' I1 T' T% U
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-1 01:39:40 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算2.0(VB版)070331更新(加入内齿,绘

升级了,大家来看看吧。。 。
回复 支持 反对

使用道具 举报

发表于 2007-4-1 07:12:28 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算2.0(VB版)070331更新(加入内齿,绘

真是不简单啊!辛苦了,睡个好觉
回复 支持 反对

使用道具 举报

发表于 2007-4-1 11:32:51 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算2.0(VB版)070331更新(加入内齿,绘

打不开。
' \- ^: c- @; A: P+ I4 f类未注册。
' E$ x5 ~# B( H) r9 D8 ~& `/ I+ r需要在机器中安装下列文件。 MSSTDFMT.DLL.
% e2 ?, s3 X  w# K" Y% u
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-1 11:59:23 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算2.0(VB版)070331更新(加入内齿,绘

原帖由 mkzeng 发表 & k# k1 @# W+ [+ H/ [ 打不开。
类未注册。
需要在机器中安装下列文件。 MSSTDFMT.DLL.

$ D6 \4 P; Y7 z$ k1 w& n

可能是因为98或你的电脑文件丢失了.你下载我的附件试试看.

3 m! E9 ]* Q% q9 s# c/ k# x; i) a

1.将MSSTDFMT.DLL复制到C:\WINdows\system32下(视你的系统而定)
2.点击开始-运行,输入regsvr32.exe C:\WINdows\system32\Msstdfmt.dll
3.ok

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-4-1 13:43:56 | 显示全部楼层

Re: 齿厚,公法线长度,跨棒距,变位系数之间的换算2.0(VB版)070331更新(加入内齿,绘

阿松,欢迎多提意见阿。
. M6 T7 @* J+ ]" f  t( r$ w最近忙什么哪?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-5-1 12:31 , Processed in 0.072817 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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