Stats

Popular Posts

  • LaTeX 快速多行註解
    LaTeX 快速多行註解 在排版LaTeX時，某些內容可能食之無味，棄之可惜。多行註解要一行一行手動 % 實在不方便， 這時候有個comment的package可以使用，在前文加上\usepackage{comment} 要註解的文字前後分別加上 \begin{comment}...
  • LaTex可愛字體
    排版講義發現LaTex裡面有一個可愛字體，很像大部分老外手寫的英文字。如果對應到華康字體的話，應該就是少女體吧～ \fontfamily{augie}\selectfont Mathematica
  • Excel 教學 班級分班S型排列
    Q: 一份資料，是小學生的成績表現。因為要編班，所以需要s型的排列。請問是否有方式可以自動排出s型排列？ =INDEX($B$2:$B$28,IF(MOD(ROW(),2)=0,COLUMN()-3+3*(ROW()-2), COLUMN()-3+3*(ROW()-2...
  • Mathematica 教學：Tikz Plot for Traveling Salesman Problem
    pathtikz[tour_,coords_]:=Block[{nodeStrings,nodeBlock,pathString,startNode}, startNode=tour[[1]]; (*節點資料字串*) nodeStrings=MapIndexed[Str...
  • Mathematica 教學：樂秀程式
    mynum[luckynumbers__,n_]:=Block[{simulation,myresult}, (* 產稱n組中講號碼 *) ...

Followers

Mathematica 教學 截取許多圖片的同一區塊

由 戴忠淵 於 2012年11月26日星期一 下午10:15 發表
我有好幾百張tiff格式的圖片存在光碟中，希望可以擷取所有圖片的同一個區塊。 目前想到的方法是用預覽程式打開圖，按"+"將所有視窗放到同一個位置後，。 再以osx內建的截圖功能(cmd+shift+4)，根據座標截取同一區塊。 方法可行，但是對座標要對很久。而且截取後的圖片會失真(tiff變成png) 想請問各位有沒有軟體可以代勞，感謝。 
(* 圖檔目錄 *)

SetDirectory["/Users/chungyuandye/Desktop"];

(* 圖檔路徑 *)

filenames=FileNames["*.png"]

(*{-995,-883},{95,1560}為擷取區塊座標*)

temp=ImageTake[Import[#],{-995,-883},{95,1560}]&/@filenames

(*檔案輸出*)

Export["crop-"<>#,ImageTake[Import[#],{-995,-883},{95,1560}]]&/@filenames

(* 圖檔組合 *)

ImageAssemble[Partition[temp,1]]


Tags: , , ,

讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)

發佈留言

Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.

如果這篇文章對你有幫助，那請留個訊息給我～