ตอบปัญหาคุณ CardCaptor ข้อที่ 3

    ค่อย ๆ ทำไปทีละนิดตามแต่เวลาที่มีครับ สำหรับข้อนี้ผมสร้าง algorithm ใน EXCEL ค้นหาโดยเพิ่มทีละ
    0.036 องศา จาก 0 จนถึง 2Pi (ครบรอบวงกลมพอดี) คำตอบของค่าต่ำสุดคือ 1.828 ครับ ที่ x ประมาณ
    152 และ 298 องศา ตามลำดับ

    อ้างอิงถึงปัญหาทั้งสิบสองข้อที่กระทู้นี้ครับ
    http://www.pantip.com/cafe/wahkor/topic/X2571666/X2571666.html

    Algorithm used:
    Sub No3()
       Cells.Clear
       N = 10000
       Cells(1, 1) = "=Pi()"
       Pie = Cells(1, 1)
       Cells(1, 1).ClearContents
       For i = 0 To N
           If i = 0 Then
               Range("a" & i + 1) = 1E-20
           ElseIf i = N Then
               Range("a" & i + 1) = 2 * Pie - 1E-20
           Else
               Cells(i + 1, 1) = i * 2 * Pie / N
           End If
           Cells(i + 1, 2) = "=abs(sin(" & "a" & i + 1 & ")+cos(" _
               & "a" & i + 1 & ")+tan(" & "a" & i + 1 & ")+" & _
               "1/tan(" & "a" & i + 1 & ")+1/cos(" & "a" & i + 1 _
               & ")+1/sin(" & "a" & i + 1 & "))"
           If i = 2000 Or i = 4000 Or i = 6000 Or i = 8000 Then
               Cells(1, 4) = i
               Application.ScreenUpdating = True
               Application.ScreenUpdating = False
           End If
       Next i
       Cells(1, 5) = "Minimum value"
       Cells(1, 6) = "=min(b1:b65535)"
    End Sub

    แก้ไขเมื่อ 09 ธ.ค. 46 16:57:39

    จากคุณ : Practical x 2 - [ 9 ธ.ค. 46 16:57:25 ]