渐开线函数与反渐开线函数计算

lianglongq · 发表于 2009-9-21 22:24

非常感谢楼主

userfbh888 · 发表于 2009-10-4 15:03

看了图片,非常不错,谢谢分享!

刀疤五 · 发表于 2009-10-4 16:25

能把源程序发布就好

poxiangzi · 发表于 2009-10-4 19:19

本帖最后由 poxiangzi 于 2009-10-4 19:25 编辑

支持，我也做过类似的，呵呵。2楼，也是VB做的，交流。

http://www.gearbbs.net/forum.php?mod=viewthread&tid=11974&page=1#pid57809

sdcl.com · 发表于 2010-4-7 21:39

楼主高手支持

ZOMAX111 · 发表于 2010-12-4 13:36

较实用，谢了！

speed_long · 发表于 2010-12-4 22:40

本帖最后由 speed_long 于 2010-12-4 22:40 编辑

源程序:

1:       val1=4.2750184180222
2:       middle=45
3:       pg=13
4:       min=0
5:       max=90
6:       val2=inv(middle)= 0.2146018366026
7:       i=0
8:       wcycle(abs(val2-val1)>(1/10^pg))
9:             if(val2>val1)
10:                      max=middle= 80.000000001455
11:             else
12:                      min=middle= 79.999999998836
13:             end if
14:             middle=(min+max)/2= 80.0000000001455
15:             val2=inv(middle)= 4.2750184181039
16:             i=i+1= 35
17:             if(i>100)
18:                      exit wcycle
19:             end if
20:       end wcycle
21:       angle=middle= 80.0000000001455

qiuzhishihui · 发表于 2011-3-22 16:52

东西非常好谢谢分享
收藏了

qiuzhishihui · 发表于 2011-3-25 21:31

回复 msm2002 的帖子

你好
能告诉我是用什么软件编程的吗？是怎么编程的？能告诉我吗，我也想自己编程一些小软件自己用！

msm2002 · 发表于 2011-3-26 12:18

回复 qiuzhishihui 的帖子

你好，我是用vb6.0编的，原理和speed_long 的一样，用二分法

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

[软件] 渐开线函数与反渐开线函数计算