ClearAll[rgb2YCbCr];
house = Import[
"http://upload.wikimedia.org/wikipedia/commons/d/d0/Barns_grand_\
tetons.jpg"];
lena = Import["ExampleData/lena.tif"];
rgb2YCbCr[{r_, g_, b_}] :=(*ref:en.wikipedia.org/wiki/YCbCr,
digital formula*)
{16 + (65.481 r + 128.553 g + 24.966 b),
128 + (-37.797 r - 74.203 g + 112 b),
128 + (112 r - 93.786 g - 18.214 b)};
m = {{0.299, .587, .114}, {-.168736, -.331264, .5}, {.5, -.418688, \
-.081312}};
lenaUsingFormula = Map[rgb2YCbCr, ImageData[lena], {2}];