You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
If (d * del1 < 0) Then<br />
d = 0<br />
ElseIf ((del1 * del2 < 0) And (Abs(d) > Abs(3 * del1))) Then<br />
d = 3 * del1<br />
End If<br />
pchipend = d<br />
End Function<br />
Public Function bdrint(rate As Range, dist As Range, low As Double, high As Double) As Double<br />
Dim log_rate(1 To 4) As Double<br />
Dim log_dist(1 To 4) As Double<br />
Dim i As Long<br />
For i = 1 To 4<br />
log_rate(i) = WorksheetFunction.Log(rate(5 - i), 10)<br />
log_dist(i) = dist(5 - i)<br />
Next i<br />
Dim H(1 To 3) As Double<br />
Dim delta(1 To 3) As Double<br />
For i = 1 To 3<br />
H(i) = log_dist(i + 1) - log_dist(i)<br />
delta(i) = (log_rate(i + 1) - log_rate(i)) / H(i)<br />
Next i<br />
Dim d(1 To 4) As Double<br />
d(1) = pchipend(H(1), H(2), delta(1), delta(2))<br />
For i = 2 To 3<br />
d(i) = (3 * H(i - 1) + 3 * H(i)) / ((2 * H(i) + H(i - 1)) / delta(i - 1) + (H(i) + 2 * H(i - 1)) / delta(i))<br />
Next i<br />
<strong>Deliver</strong> <strong>High</strong> <strong>Quality</strong>, <strong>High</strong> <strong>Performance</strong> <strong>HEVC</strong> <strong>via</strong> <strong>Intel®</strong> <strong>Media</strong> <strong>Server</strong> <strong>Studio</strong><br />
d(4) = pchipend(H(3), H(2), delta(3), delta(2))<br />
Dim c(1 To 3) As Double<br />
Dim b(1 To 3) As Double<br />
For i = 1 To 3<br />
c(i) = (3 * delta(i) - 2 * d(i) - d(i + 1)) / H(i)<br />
b(i) = (d(i) - 2 * delta(i) + d(i + 1)) / (H(i) * H(i))<br />
85<br />
*Other names and brands may be claimed as property of others.