QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2371|回复: 3
收起左侧

[求助] 滚齿机计算软件

[复制链接]
发表于 2008-5-7 21:46:22 | 显示全部楼层 |阅读模式 来自: 中国重庆

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

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

x
听说滚齿机计算差动机构可以用程序
  [, b% i% m6 P/ N       请指教
 楼主| 发表于 2008-5-7 21:50:24 | 显示全部楼层 来自: 中国重庆

滚齿机计算软件

急急!!!!!!!!!!!
发表于 2008-5-7 22:54:22 | 显示全部楼层 来自: 中国江苏苏州
论坛里有很多,要学会搜索:( `% P  ^( a  }  d8 A; o
我发个VB编写的挂轮计算程序/ o: q4 V7 V3 e7 b* L* m
http://www.3dportal.cn/discuz/viewthread.php?tid=175196
# {; @5 g* |" |2 {6 S* V/ R滚齿机挂轮计算器(正式可Crack版)
% T& o$ z# p$ @% H, X0 L) [' Vhttp://www.3dportal.cn/discuz/viewthread.php?tid=175442/ U. x# N! p8 g% y. [9 s
现在还不能下载,等附件恢复后就可下载了
发表于 2008-5-8 19:55:27 | 显示全部楼层 来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:. o. R3 Z( N9 l* [
dim a as long ,b as long ,c as long,d as long
6 E$ Z5 x7 o6 d$ ^& m for a=20 to 100- W& D7 p- K; r0 p" Y1 V8 x, Z/ @' P# ~
   for b=2o to 1009 j' P5 W5 [, C' L
     for c=20 to 100
" X/ @1 G" U+ t" ]. i       for d=2o to 100. L$ W. K9 h6 C0 J4 D
        if  abs((a*b)/(c*d)-传动比)<自己设定的精度值; y0 F$ ~5 m$ H4 X
   then prin a,b,c,d
2 o/ G; j! H6 r2 hnext d0 Q6 t3 c# }2 i( f+ Z% p
next c
6 g. e6 u$ B* O9 A( @! Pnext b
' O5 {: o$ X$ d5 V; E1 @next a% S, o. P5 k" [* H& |: }
不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。- f, I, K( J  h5 h# \  b  k1 P
具体的优化方法就不写了~

评分

参与人数 1三维币 +5 收起 理由
hero2006 + 5 应助

查看全部评分

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

本版积分规则


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

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

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