Mat=Table[Cos[2 (x-π)^2+(y-π)^2],{x,0,2 π,.05},{y,0,2 π,.05}];

Image[Mat]

ocelot=Import["ExampleData/ocelot.jpg"]

svdcomp[myPic_]:=Manipulate[myPicsings=SingularValueList[ImageData[myPic]];{u,w,v}=SingularValueDecomposition[ImageData[myPic],n];Row[{Image[u.w.Transpose[v],ImageSize->Medium],ListPlot[myPicsings, Epilog->{Red,Line@{{n,Min@myPicsings},{n,Max@myPicsings}}},ImageSize->Medium]}],{n,1,200,1}]

svdcomp[ocelot]