여러 목적으로 Excel 대신 Google Sheets를 사용할 수 있도록 JavaScript로 INTERPOLATION 함수를 작성하고 싶습니다. Excel에서는 VBA로 작성된이 사용자 정의 함수가 있습니다.
Function interpolate_1D(xreq As Single, x As Range, y As Range) As Single
' If we have variable y that is a function of x and have two ranges, x and y that give the values
'of y for particular values of x, we may need to find the value of y for a value of x not 'given in the table.
'For example, we may have power curve data for a wind turbine that gives the power output of a wind turbine
'for integer values of the wind speed. To find the output power at any other speed we could 'use this function, using as arguments:
'xreq: wind speed for which we wish to know the output power
'x: range containing the known wind speeds in ascending order
'y: range containing the known wind turbine powers
Dim pointer As Integer
Dim x0 As Single, y0 As Single, x1 As Single, y1 As Single
pointer = Application.Match(xreq, x, 1)
x0 = x(pointer)
x1 = x(pointer + 1)
y0 = y(pointer)
y1 = y(pointer + 1)
interpolate_1D = y0 + (xreq - x0) * (y1 - y0) / (x1 - x0)
End Function
아마도 과학자와 엔지니어를위한 Excel에 관한 Billo의 책과 같은 곳에서 이것을 복사했을 것입니다. 내가 작성한 2D 버전과 마찬가지로 매우 잘 작동합니다.
저는 JavaScript를 처음 접했고 지금은 Application.Match (xreq, x, 1) 줄에 해당하는 작업을 수행하는 방법을 볼 수 없습니다. 여기서 알려진 x 값의 범위를 살펴보고 검색 값 xreq보다 작은 가장 큰 값의 위치. 일단 그 자리를 잡으면 다른 모든 것을 할 수 있습니다.
어떤 아이디어?
그럴 필요가 없습니다. 배열 .IndexOf
방법 을 사용할 수 있습니다 .
http://www.w3schools.com/jsref/jsref_indexof_array.asp
var fruits = ["Banana", "Orange", "Apple", "Mango"];
var a = fruits.indexOf("Apple");
a의 결과는 다음과 같습니다. 2
최적화 된 Match
워크 시트 함수를 다른 언어 로 다시 만들 수 있는지 여부 를 확인하려면 기본 코드에 대한 좀 더 자세한 지식이 필요합니다. 현재로서는 제공 할 수 없습니다.
그렇지 않으면, 당신이하는 일을 더 많이 보지 않고, Match
함수 를 재구성하려는 시도 가 더 느릴지라도 배열에 대한 무차별 대입 반복만큼 간단 하다고 말하고 싶습니다 . 범위 개체가 아닌 배열).
여러 방법을 비교하기 위해 Tim Williams의 테스트 기능을 수정 했습니다. 이 테스트에서 Contains
함수는 .Value
배열로 전송 한 후 범위에 대해 테스트 됩니다. 나는 Match
배열과 범위 객체에 대해 함수를 테스트 하고 범위에 대해서도 테스트 WorksheetFunction.Match
합니다.
Sub Tester()
Application.ScreenUpdating = False
Dim i As Long, B, T
Dim Arr As Variant
Dim rng As Range
Set rng = Range("A1:A10000")
rng.Formula = "=""value_""&" & "RandBetween(1,1000)"
Range("A100000").Value = "Value_50"
T = Timer
Arr = Application.Transpose(rng.Value)
For i = 1 To 10000
B = Contains(Arr, "Value_50")
Next i
Debug.Print "Contains (array)" & vbTab & Timer - T
T = Timer
Arr = Application.Transpose(rng.Value)
For i = 1 To 10000
B = Application.Match("Value_50", Arr, False)
Next i
Debug.Print "Match (array)" & vbTab & Timer - T
T = Timer
For i = 1 To 10000
B = Application.Match("Value_50", rng, False)
Next i
Debug.Print "Match (range)" & vbTab & Timer - T
T = Timer
On Error Resume Next
For i = 1 To 10000
B = Application.WorksheetFunction.Match("Value_50", rng, False)
Next i
On Error GoTo 0
Debug.Print "WorksheetFunction.Match (range)" & vbTab & Timer - T
Application.ScreenUpdating = True
End Sub
관찰 Contains
지정 함수 빨리보다 Match
메모리 어레이상에서 수행 될 때, 그러나 Application.Match
및 Application.WorksheetFunction.Match
기능이 모두 현저하게 빨리 하나보다는 수행 할 때 Range
워크 시트 개체 :
Contains (array) 18.90625
Match (array) 43.25
Match (range) 0.2304688
WorksheetFunction.Match (range) 0.1914063
이 타이밍 테스트에 도움을주고 이에 대한 몇 가지 사항을 명확히 해준 @CharlesWilliams의 의견 / 토론에 감사드립니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다