You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
minPSNR = WorksheetFunction.Max(WorksheetFunction.Min(distA), WorksheetFunction.Min(distB))<br />
maxPSNR = WorksheetFunction.Min(WorksheetFunction.Max(distA), WorksheetFunction.Max(distB))<br />
Dim vA As Double<br />
Dim vB As Double<br />
vA = bdrint(rateA, distA, minPSNR, maxPSNR)<br />
vB = bdrint(rateB, distB, minPSNR, maxPSNR)<br />
Dim avg As Double<br />
avg = (vB - vA) / (maxPSNR - minPSNR)<br />
bdrate = WorksheetFunction.Power(10, avg) - 1<br />
End Function<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 />
87<br />
*Other names and brands may be claimed as property of others.