| Author |
Comment/Response |
Nikola Dimitrov
|
 01/19/13 4:40pm
Hello !
I am trying to plot the relative error vs compression ratio curve of a DWT on an image with dimensions 512x512 px.
I calculated:
--
ewp = cumulativeEnergy[dwd[Automatic, "Values"]]
--
and now I am trying to plot the curve using this block:
--
Show[MapThread[
ListPlot[Transpose[{Table[512 512/i, {i, 1000, 5000}],
Sqrt[1-Take[#, {1000, 5000}]]}], PlotStyle -> #2,
PlotJoined -> True, DisplayFunction -> Identity,
PlotLabel -> "relative error vs. compression ratio"]&,
{{ewp}, {Dashing[{0.02}], {}}}],
DisplayFunction -> $DisplayFunction]
--
which on theory should produce the desired plot, but it does not.
Any suggestions, papers or tutorials on this problem are welcome !
Won't mind pointing the error in my code straight away :D
Thank you !
URL: , |
|
