|
??? |
|
Option Explicit
Sub Macro1() Dim PA As Double Dim PAA As Double Dim PA_min As Double Dim PA_max As Double Dim PA_min0 As Double Dim PA_max0 As Double Dim PE As Double Dim kizami As Double Dim ratio As Double Dim dankai As Integer Cells(1, 1).Value = 0 Cells(2, 1).Value = 0 Range("A1").Select kizami = 0.1 PA_min0 = kizami PA_max0 = 15 - kizami For dankai = 1 To 12 If dankai = 1 Then PA_min = PA_min0 PA_max = PA_max0 Else PA_min = Application.Max(PAA - kizami, PA_min0) PA_max = Application.Min(PAA + kizami, PA_max0) kizami = kizami * 0.1 End If For PA = PA_min To PA_max Step kizami PE = Sqr((PA - 3) * (PA - 3) + 4 * 4) ratio = PA / PE If Cells(2, 1).Value < ratio Then Cells(2, 1).Value = ratio Cells(1, 1).Value = PA * 4 / 2 PAA = PA End If Next PA Next dankai End Sub |
|
5月6日（木） 9:58:08
36166 |