齿轮论坛 www.gearbbs.com

 找回密码
 注册
搜索
楼主: speed_long
收起左侧

[软件] 神奇的计算软件:计算不求人,机械设计计算样样行.

    [复制链接]
发表于 2010-11-29 04:46 | 显示全部楼层
大力支持,谢谢啦!
 楼主| 发表于 2010-12-3 18:52 | 显示全部楼层
经过多方检测的完美版正式发布了:计算不求人2011_最新版_2010-12-02.rar
在顶楼,请已注册的朋友下载更新.
发表于 2010-12-3 19:32 | 显示全部楼层
什么时候会有终结版
 楼主| 发表于 2010-12-3 21:25 | 显示全部楼层
回复 洪都诺夫斯基 的帖子

洪兄,你好!
开发永无止境,软件不会停止更新和发展.
本软件功能按照原来的设想到"计算不求人2011_(2010-12-02)"这个日期的版本功能基本全面.
所有机械设计/刀具设计/等计算问题都可以轻易解决了.
因为已经具备完善的循环功能(次数循环/条件循环)和条件转移功能.
ncycle : 次数循环
...
if(...)
  exit ncycle
end if
...
end ncycle

wcycle  : 条件循环一
...
if(...)
  exit wcycle
end if
...
end wcycle(...)  :条件为真时结束循环.

wcycle(...) : 条件循环二, 当条件为真时继续循环.
...
if(...)
  exit wcycle
end if
...
end wcycle

if(...)   : 条件转移
...
else if(...)
...
else if(...)
...
...
else
...
end if

下一次阶段的开发计划: 增加图形绘制功能; 增加根据计算文件内容自动生成窗口界面功能.
并保持软件向下兼容,以前的所有计算文件都可以使用.

 楼主| 发表于 2010-12-4 21:55 | 显示全部楼层
 楼主| 发表于 2010-12-4 22:02 | 显示全部楼层
1: 渐开线函数的值;
2:替代初值45度;
3:计算精度,小数点13位;
4:角度最小值;
5:角度最大值;在最小值与最大值之间替代求解;
6:不用说;
7:循环记数变量(用于程序调试,防止死循环退不出,调试好后可以删除与它有关的行);
8:循环开始:当条件满足时,计算: wcycle  .....   end wcycle  之间的行;否则跳动;
9: 到 15:  是有渐开线反函数的算法
16: 到 20 防止出现死循环时退出
21 : end wcycle  与 wcycle 配套使用,表示循环结束.
发表于 2010-12-4 22:56 | 显示全部楼层
帖子已收藏,LZ热心人哦!
发表于 2010-12-4 23:48 | 显示全部楼层
谢谢楼主的贡献
发表于 2010-12-6 15:06 | 显示全部楼层
本帖最后由 48824305 于 2010-12-7 13:05 编辑

内齿轮如何计算齿高齿厚?

固定弦齿高,固定弦齿厚,
分度弦齿高,分度弦齿厚,
法向齿顶厚?

外齿轮齿顶厚为0时的变位系数如何求?

 楼主| 发表于 2010-12-6 22:25 | 显示全部楼层
本帖最后由 speed_long 于 2010-12-6 22:27 编辑

齿顶厚等于零时的变位系数求法:
z1= 25
an= 20
at= 20.64690
db1= 121.09771
ha_m= 1
mn= 5
d1=129.40952
deta_y=0
以上参数为已知

x1min=0
x1max=5
x1=(x1min+x1max)/2= 2.5
da1=d1+2*(ha_m+x1-deta_y)*mn= 164.409520
aa1=acos(db1/da1)= 42.5606805108444
san1=da1*{[0.5*pi+2*x1*tan(an)]/z1+inv(at)-inv(aa1)}= -3.8435825951635
pg=13
i=1
wcycle[abs(san1)>(1/10^pg)]
        if(san1>0)
                x1min=x1= 1.5518306195737
        else
                x1max=x1= 1.5518306940795
        end if
        x1=(x1min+x1max)/2= 1.5518306568266
        da1=d1+2*(ha_m+x1-deta_y)*mn= 154.927826568266
        aa1=acos(db1/da1)= 38.5890667974238
        san1=da1*{[0.5*pi+2*x1*tan(an)]/z1+inv(at)-inv(aa1)}= 0
        i=i+1= 27
        if(i>100)
                exit wcycle
        end if
end wcycle
齿顶厚等于零时的变位系数:
        x1=x1= 1.5518306568266

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

本版积分规则

QQ|小黑屋|手机版|Archiver|齿轮论坛

GMT+8, 2025-5-6 17:37 , Processed in 0.214618 second(s), 15 queries , MemCache On.

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

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