开饭开饭，保证有滋味。

ngsxngtd

合口味的，多咂么会儿。

ngsxngtd

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

Irving

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

锐气要保留

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

groyne

换成软件代码来吧。

ngsxngtd

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

锐气要保留

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

呵呵……