%作品：圖片切換動畫效果
%作者：吳限?
%2018.3.14
function?imageswitch（）
%需顯示的圖片文件名預存
S=char（‘BingWallpaper-2016-09-27.jpg‘...
????‘BingWallpaper-2016-10-07.jpg‘...
????‘BingWallpaper-2016-10-13.jpg‘...
????‘BingWallpaper-2016-10-14.jpg‘...
????‘BingWallpaper-2016-12-26.jpg‘）;
Imagename=cellstr（S）;
%%?讀入圖片
I1=imread（Imagename{1}）;I2=imread（Imagename{2}）;
I3=imread（Imagename{3}）;I4=imread（Imagename{4}）;
I5=imread（Imagename{5}）;
%%?轉換存儲格式為double
I1=im2double（I1）;I2=im2double（I2）;I3=im2double（I3）;
I4=im2double（I4）;I5=im2double（I5）;
%%?
[xyz]=size（I1）;
Im=I1;
%%?創建圖形窗口并設置圖形對象初始屬性
hFigure=figure（‘menubar‘‘none‘‘Numbertitle‘‘off‘‘position‘...
????[1000?1000?720?450]‘name‘‘圖片切換動畫效果‘）;
movegui（hFigure‘center‘）;
axes（‘Visible‘‘off‘‘units‘‘normalized‘‘position‘[0?0?1?1]）;
%?顯示圖片
hIm=imshow（Im）;

step=x/10;%漸變步長
Length=（y-x）/2;

while?1
????%?動畫效果一
????for?i=step:step:x
????????%?改變圖像數據
????????Im（1:i1:Length:）=I2（x-i+1:x1:Length:）;
????????Im（x-i+1:xy-Length+1:y:）=I2（1:iy-Length+1:y:）;

????????Im（1:x/2Length+1:Length+i:）=I2（1:x/2y-Length-i+1:y-Length:）;
????????Im（x/2+1:xy-Length-i+1:y-Length:）=I2（x/2+1:xLength+1:Length+i:）;
????????
????????set（hIm‘CData‘Im）;%設置image對象CData屬性為Im
????????drawnow?;%重繪當前圖形窗口
????end
???
?????%?動畫效果二
????Im=I2;
????for?i=x:-step:step
????????Im=I4;
????????Im（x-i+1:x1:Length:）=I3（1:i1:Length:）;
????????Im（1:iy-Length+1:y:）=I3（x-i+1:xy-Length+1:y:）;
????????
????????Im（x/2-i/2+1:x/2+i/2y/2-i/2+1:y/2+i/2:）=I3（x/2-i/2+1:x/2+i/2y/2-i/2+1:y/2+i/2:）;
????????set（hIm‘CData‘Im）;%設置image對象CData屬性為Im
????????drawnow?;%重繪當前圖形窗口
????end
????
????
????%動畫效果三
????Im=I3;
????for?i=x:-step:step
????????Im=I1;
????????Im（1:i1:Length:）=I4（x-i+1:x1:Length:）;
????????Im（x-i+1:xy-Length+1:y:）=I4（1:iy-Length+1:y:）;
????????
????????Im（1:x/2Length+1:Length+i:）=I4（1:x/2y-Length-i+1:y-Length:）;
????????Im（x/2+1:xy-Length-i+1:y-Length:）=I4（x/2+1:xLength+1:Length+i:）;
??
????????set（hIm‘CData‘Im）;%設置image對象CData屬性為Im
????????drawnow??;%重繪當前圖形窗口
????end
????
????%動畫效果四
????Im=I4;
????for?i=1:step:x
????????Im（x-i+1:x1:Length:）=I5（1:i1:Length:）;
????????Im（1:iy-Length+1:y:）=I5（x-i+1:xy-Length+1:y:）;
????????
????????Im（x/2-i/2+1:x/2+i/2y/2-i/2+1:y/2+i/2:）=I5（x/2-i/2+1:x/2+i/2y/2-i/2+1:y/2+i/2:）;
????????
????????set（hIm‘CData‘Im）;%設置image對象CData屬性為Im
????????drawnow?;%重繪當前圖形窗口
????end
????
????Im=I5;
end
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件?????357261??2018-02-19?22:04??imageswitch\BingWallpaper-2016-09-27.jpg

?????文件?????338050??2018-02-19?22:04??imageswitch\BingWallpaper-2016-10-07.jpg

?????文件?????875950??2018-02-19?22:04??imageswitch\BingWallpaper-2016-10-13.jpg

?????文件?????782985??2018-02-19?22:04??imageswitch\BingWallpaper-2016-10-14.jpg

?????文件????1070492??2018-02-19?22:04??imageswitch\BingWallpaper-2016-12-26.jpg

?????文件???????2655??2018-03-15?16:34??imageswitch\imageswitch.m

?????文件????????913??2018-03-15?16:36??imageswitch\imageswitch1.m

?????文件???????1080??2018-03-15?16:37??imageswitch\imageswitch2.m

?????文件???????1043??2018-03-15?16:37??imageswitch\imageswitch3.m

?????文件???????1459??2018-03-15?16:38??imageswitch\imageswitch4.m

?????文件????6218856??2018-03-15?16:38??imageswitch\movefig.gif

?????目錄??????????0??2018-03-15?16:39??imageswitch

-----------?---------??----------?-----??----

??????????????9650744????????????????????12