Mathematica code-hthr = Import["hthrtzy.jpg"];hthrC = ImageData[hthr, "Byte"];ht