p = "/Users/felix/fie_mac/Investigacion/BilateralFilter/";
(*name = "Imagen"; gatito*)
name = "Lena";
A= ImageData[ColorConvert[ 
Import[StringJoin[p, name, "_origen.png"]], "Grayscale"]
];
A1= ImageData[ColorConvert[ 
Import[StringJoin[p, name, "_BF.png"]], "Grayscale"]
];
A2= ImageData[ColorConvert[ 
Import[StringJoin[p, name,"_TF.png"]], "Grayscale"]
];

(*r=40;*)
r = 128;
ListLinePlot[{A[[r, All]], A1[[r, All]]+1,A2[[ r, All]]+2.0},  PlotStyle->{Black, Black,Black}, Axes->{True, False}]
r =1;
Manipulate[
ListLinePlot[{A[[r, All]], A1[[r, All]]+1,A2[[ r, All]]+2},  PlotStyle->{Black, Black,Black}, Axes->{True, False}],
{r, 1, 200,10}]


(*ListLinePlot[{A[[200, All]]-1,A1[[200, All]],A2[[ 200, All]]+1.0},  PlotStyle->{Black,Black}, Axes->{True, False}]*)

{Image[A], Image[A1], Image[A2]}

Resultados

Lena

Resultados con lena en el renglón 151
The figures ?, ? and ? show the Lena Gato and LUCA images original images and the images after applied the bf and tf at each one. Also the figures presents a one row for each image in order to show the sharpness detail. The parameters for each image are in table ¿?

{,,}

Luca

Renglon 81 de la imagen de luca con los mejores parámetros

,,

Gato

Los resultados para el gato en el renglón 128 son

{,,}