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

壓縮視頻

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

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

導(dǎo)入視頻

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

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

處理視頻

一些因?yàn)閭€(gè)人水平有限寫出的奇葩代碼，，
使用Part命令從List中提取單個(gè)元素。具體的寫法就是

List_name[[i]]
選出List里面第i個(gè)元素（計(jì)數(shù)從1開始）

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

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

導(dǎo)出視頻

導(dǎo)出的時(shí)候可以直接寫文件名到地址位置
幀速率需要自行設(shè)置，默認(rèn)應(yīng)該是15幀左右

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

播放視頻

首先將視頻生成串流信號，然后控制開始播放
這個(gè)時(shí)候是看不到輸出的，需要再通過動態(tài)展示當(dāng)前幀才可以看到播放的視頻

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

一口氣全做對

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

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"]]

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。