p = "/Users/felix/fie_mac/Investigacion/BilateralFilter/";
name = "Gato"; 
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"]
];


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


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]}