起因是刷到了視頻鏈接: link
但是由于某些原因窩工不能使用Matlab于是打算用Mathematica復刻這個內容
第一期首先講Mathematica的視頻處理

壓縮視頻

導入原視頻demo.mp4,直接導出為480p
電腦配置高且有耐心等的可以略過這一步

Export["C:\\Users\\compress.mp4",Import["C:\\Users\\demo.mp4"], RasterSize -> 480]

導入視頻

控制導入類型為ImageList，后面所有的圖像處理都是基于圖像（Image）的，而使用列表（List）串連圖像

sorce = Import["C:\\Users\\compress.mp4", "ImageList"]

處理視頻

一些因為個人水平有限寫出的奇葩代碼，，
使用Part命令從List中提取單個元素。具體的寫法就是

List_name[[i]]
選出List里面第i個元素（計數從1開始）

用process作為中間變量，取出一幅圖片進行處理
用outtemp作為輸出緩存，將處理后的圖片保存到ImageList里面
前面兩句新建出兩個List類型的變量出來
循環處理，將outtemp和process合并起來

process = {EdgeDetect[sorce[[1]]]}; outtemp = process; For[i = 2, i < Length[sorce] + 1, i++,process = {EdgeDetect[sorce[[i]]]};outtemp = Join[outtemp, process]]

導出視頻

導出的時候可以直接寫文件名到地址位置
幀速率需要自行設置，默認應該是15幀左右

Export["C:\\Users\\output.mp4", outtemp, FrameRate -> 30]

播放視頻

首先將視頻生成串流信號，然后控制開始播放
這個時候是看不到輸出的，需要再通過動態展示當前幀才可以看到播放的視頻

v = VideoStream["C:\\Users\\output.mp4"]; VideoPlay[v]; Dynamic[v["CurrentFrame"]]

一口氣全做對

把所有代碼連起來：
在mathematica里面語句結尾打上" ; "的話這一句的結果就不會輸出啦，但是可以被下一句調用，這樣會比較簡潔

Export["C:\\Users\\YawnFun\\Desktop\\0713\\compress.mp4",Import["C:\\Users\\YawnFun\\Desktop\\0713\\demo.mp4"], RasterSize -> 480]; sorce = Import["C:\\Users\\YawnFun\\Desktop\\0713\\compress.mp4", "ImageList"]; process = {EdgeDetect[sorce[[1]]]}; outtemp = process; For[i = 2, i < Length[sorce] + 1, i++,process = {EdgeDetect[sorce[[i]]]};outtemp = Join[outtemp, process]]; Export["C:\\Users\\YawnFun\\Desktop\\0713\\output.mp4", outtemp, FrameRate -> 30]; v = VideoStream["C:\\Users\\YawnFun\\Desktop\\0713\\output.mp4"]; VideoPlay[v]; Dynamic[v["CurrentFrame"]]

工程和素材放在阿里云盤啦，有需要的朋友歡迎下載～
鏈接: 工程和素材下載

總結

以上是生活随笔為你收集整理的Mathematica视频处理实例-边缘检测的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。