怎么计算图像的MTF值？ delphi
如何计算图像的MTF值？ delphi
//我首先根据像素RGB值 获取灰度值
function GetGrayNum(color: TColor): Byte;
var
R, G, B: Byte;
begin
B := color shr 16;
G := (color and $00FF00) shr 8;
R := color and $0000FF;
// 灰度 = (蓝色分量 * 11 + 绿色分量 * 59 + 红色分量 * 30) / 100;
Result := (B * 11 + G * 59 + R * 30) div 100;
end;
我的图像大小是90*90的矩形 下面该如何计算其MTF值？
------解决方案--------------------
接分不刻苦，升星不靠谱
//我首先根据像素RGB值 获取灰度值
function GetGrayNum(color: TColor): Byte;
var
R, G, B: Byte;
begin
B := color shr 16;
G := (color and $00FF00) shr 8;
R := color and $0000FF;
// 灰度 = (蓝色分量 * 11 + 绿色分量 * 59 + 红色分量 * 30) / 100;
Result := (B * 11 + G * 59 + R * 30) div 100;
end;
我的图像大小是90*90的矩形 下面该如何计算其MTF值？
------解决方案--------------------
接分不刻苦，升星不靠谱