[問題] 傅立葉濾鏡與隱形水印

看板Mathematica作者jurian0101 (Hysterisis)時間8年前 (2016/12/03 16:39)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/2 (看更多)

前一陣子看到這樣一則知乎問答，得知有這種利用頻域轉換，把水印編碼後當成 mask加上去的，抗盜圖者破壞的隱形水印 (blind watermark) http://www.zhihu.com/question/50735753 因為看起來就跟 Mathematica Cookbook 裡提到的 high-pass / low-pass filter 有 87% 像，讀到這章就手癢想玩玩看。來一個線上的傅立葉filter實做分享，以利手邊沒書的版友 http://mathematica.stackexchange.com/questions/110914/ 不過因為這些年來，我腦子理還是沒有任何訊號處理的知識，亂玩一通之後算是失敗了，主要是把這樣形式的水印 Graphics[MapThread[ Text[Style[#1, 100, FontFamily -> "微軟正黑體 Light"], #2*{rx, ry}, Automatic, ReIm[Exp[I RandomReal[2 Pi]]]] &, {{"清", "心", "也", "可", "以"}, oneroots[5]} ], ImageSize -> {width, height}] 加上去之後逆傅立葉轉換會得到很淒慘充滿雜訊的灰階圖，完全沒有如範例般不顯眼。而討論中提到的 alpha 值的定義我也還沒學到。這個應用，我應該就...來日再戰吧。打亂 mask(水印) ，又重新復原之的方式，應該可以利用 InversePertubation scramble= RandomSample[Range[10]]; unscramble= InversePertubation[scramble]; (Array[a,10][[scramble]])[[unscramble]] - - Out[]:= {a[1], a[2] ,..., a[10]} -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.172.93.17 ※ 文章網址: https://www.ptt.cc/bbs/Mathematica/M.1480754342.A.DCB.html