利用Mathematica做馬賽克牆

str="圖形目錄";

指定目錄
SetDirectory[str]

將大小為{100,133}的檔案全部取出，並轉成100像素。
mypic=Select[ImageResize[Import[#],100]&/@FileNames[],ImageDimensions@#=={100,133}&];

將mypic的圖形隨機選取40張，並以8x5的方式排列。
GraphicsGrid[Partition[RandomSample[mypic,40],8],ImageSize->1000,Spacings->{-100,0}]


如果覺得整齊不好，那可以隨機旋轉角度座標
ListPlot[{RandomReal[{0,10},2]}&/@Range[Length[mypic]],PlotMarkers->Evaluate[Rotate[#,Random[]*Pi]&/@mypic],Frame->False,Axes->{None,None}]


如果要將整個目錄下的所有圖檔都抓
mypic=ImageResize[Import[#],100]&/@RandomSample[FileNames["*.JPG",目錄,Infinity],100];
ListPlot[{RandomReal[{0,10},2]}&/@Range[Length[mypic]],ImageSize->750,AspectRatio->1,PlotMarkers->Evaluate[Rotate[#,Random[]*Pi]&/@mypic],
Frame->False,Axes->{None,None}]



Mathematica教學 mathematica 6教學 mathematica基本教學 mathematica mathematica下載 spss教學講義下載spss教學網站 spss教學pdf spss教學網 spss教學講義下載 spss教學網站 spss教學下載 spss教學講義 spss教學pdf roc curve spss教學 manova spss教學 spss教學手冊 spss 16教學 automator mac 教學 automator 浮水 box cox spss cwtex linux cwtex ptt cwtex texlive cwtex-linux excel matrix excel 分配圖 excel 畫常態分配圖 excel常態分配 excel常態分配圖 excel畫常態分佈圖 excel畫常態分配圖 google latex 註解 graphicspath latex 路徑 import mathematica integral exp x 2 latex latex 文字和圖片重疊 latex 浮水印 透明度 watermark latex 圖例 latex 圖片文字重疊 latex教學 mac automator mac latex 新增 package mac pdf 浮水印 mac 水印 mac合併pdf mathematica mathematica 8 圖 字 mathematica abs mathematica pso mathematica 字型 mathematica 教學 pdf mathematica 講義 mathematica教學 mathematica講義 norminv vba p-value excel scientific workplace lyx spss string substr spss 幾何平均數 spss 遺漏值 spss教學講義下載 丁吉峰 可愛手寫字體 可愛字體 可愛的字體 如何畫常態分配圖 利用mac automator幫pdf加入浮水印 怎麼合併pdf for mac automator 怎麼畫星星 浮水印 cwtex 留言板 常態分配圖 常態分配圖如何畫 敏感性分析 公式 統計學講義 最小生成樹 華康可愛字體 戴忠淵 Mathematica 解方程式 Tags: Mathematica 教學, Teaching

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見