按滑动率相等分配变位系数

speed_long

回复 陈飞 的帖子

用EXCEL或VBA能解决的计算问题,
用计算不求人一样可以解决,如下面求渐开线反函数用计算不求人编程:
以下代码求渐开线反函数的值:
第一行为渐开线函数值:
1: val1=1
2: middle=45
3: pg=13
4: min=0
5: max=90
6: val2=inv(middle)= 0.21460
7: i=0
8: wcycle()
9:  max= among[val2>val1,middle,max]= 64.87416
10:  min=among[val2<val1, middle,min]= 64.87416
11:  middle=(min+max)/2= 64.87416
12:  val2=inv(middle)= 1
13:  i=i+1= 34
14:  if(i>100)
15:   exit wcycle
16:  end if
17: end wcycle(abs(val2-val1)<=(1/10^pg))
18: angle=middle= 64.87416

陈飞

其实只要解决算法问题，而不必强调用什么计算工具，不过如果真要按等齿形系数计算变位系数，用简单的一个rote很难做到，当然用循环可以做到。

陈飞

我在这里复制了几个程序，使用计算不求人计算时，老是提示括号不匹配，查对了好几次还改不过来，最后把颜色改了一下就好了，莫名其妙。

speed_long

回复 陈飞 的帖子

你好,
你所说的计算文件总有问题,
然后改变颜色就可以了,
应该不会存在这样的问题,
能不能把计算文件贴出来看一下?

陈飞

就是那个有好几个渐开线反函数的帖子里的，总是提示在“if(1>100）”这行括号不匹配，有时重新输一遍还是不行，后来将红色的前括号改为黑色就可以运行了。

speed_long

回复 陈飞 的帖子

那个可能是"if"和"("之间有空格,会提示括号不匹配,
把之间的空格删掉就可以了.

administrator

回复 yanta82 的帖子

高手，请教你个问题啊，在excel中变位系数的等滑动计算是怎么实现的？？能不能说的细一点啊:D

hzg6623

谢谢,顶一下!

administrator

回复 yanta82 的帖子

你好

陈飞

还真不会单变量求解的操作，高手指教一下啊！