机械荟萃山庄 › 荟萃技术交流 › 开饭开饭，保证有滋味。

ngsxngtd 发表于 2017-2-16 19:44:58

开饭开饭，保证有滋味。

合口味的，多咂么会儿。

ngsxngtd 发表于 2017-2-16 22:29:28

光顾着吃了，来喝点东西，保证够年头，等上了头，再侃一会儿。
岁月远去，依稀毛子当年......

Irving 发表于 2017-2-16 20:42:27

杆系的稳定吧，不算多难的数学，建议把题目贴出来，这样看着一头雾水。

锐气要保留 发表于 2017-2-17 09:53:01

饭菜可口，数学煮饭，力学烧菜。

groyne 发表于 2017-2-17 11:29:57

换成软件代码来吧。
:o

ngsxngtd 发表于 2017-2-17 12:46:51

groyne 发表于 2017-2-17 11:29
换成软件代码来吧。

好嘞，来了，大侠慢用。
“Involute”,你懂的。
=========================================
Public Function InvFun(ByVal Alpha As Double) As Double

InvFun = Tan(Alpha) - Alpha

End Function



Public Function InvSol(ByVal InvResult As Double) As Double

Dim MinAlphaPrime#, MaxAlphaPrime#, VarAlphaPrime#

Dim Pi As Double

Pi = Atn(1) * 4

MinAlphaPrime = 0: MaxAlphaPrime = Pi

Do While (1)

      VarAlphaPrime = (MinAlphaPrime + MaxAlphaPrime) / 2
      
   If (Abs(InvFun(VarAlphaPrime) - InvResult) < 10 ^ -9) Then

                  InvSol = VarAlphaPrime: Exit Do

      ElseIf (InvFun(VarAlphaPrime) - InvResult < 0) Then

                   MinAlphaPrime = VarAlphaPrime

   Else

                   MaxAlphaPrime = VarAlphaPrime

    End If

Loop

End Function

锐气要保留 发表于 2017-2-17 20:14:41

ngsxngtd 发表于 2017-2-17 12:46
好嘞，来了，大侠慢用。
“Involute”,你懂的。
=========================================


呵呵……

查看完整版本: 开饭开饭，保证有滋味。