我如何从下面的程序创建一个电影?

1个视图(过去30天)

显示旧注释

穆罕默德 2013年4月3日

0
链接

直接链接到这个问题

//www.tianjin-qmedu.com/matlabcentral/answers/69645-how-can-i-create-a-movie-from-the-following-program

编辑: 图像分析 2020年11月22日

                         清晰的所有；
                        
                         clc;
                        
                         关闭所有；
                        
                         昏暗的= 32;
                        
                         [kx,肯塔基州]= meshgrid(三6 / (dim-1): 3);
                        
                         中国保监会=√kx。^ 2 +肯塔基州。^ 2)< 1;
                        
                         r =√kx。^ 2 +肯塔基州。^ 2);
                        
                         高山=正如(0.95);
                        
                         k0 = 1 /罪(高山);
                        
                         k = 256;
                        
                         kz =√k0 ^ 2 - (kx。^ 2 +肯塔基州。^ 2));
                        
                         Gx = 1我* sqrt (k0. / kz)。*(肯塔基州(k0 * * kx ^ 2 + kz。^ 2)。/ (k0 * (kx。^ 2 +肯塔基州。^ 2)));
                        
                         Gy = 1我* sqrt (k0. / kz)。* ((kz-k0)。* kx。*肯塔基州)。/ (k0 * (kx。^ 2 +肯塔基州。^ 2));
                        
                         广州= 1 * sqrt (k0. / kz)。* (kx. / k0);
                        
                         ph值=(量化(kx,肯塔基州)+π);
                        
                         ph = rot90 (ph值,3);
                        
                         la = sin (ph);
                        
                         磅= rot90 (cos (ph), 3);
                        
                         z = 128:1:127;
                        
                         C = numel(z);
                        
                         mz =π/ 3 * 8 * 2 * tan(高山/ 2)));
                        
                         N = size(kx);
                        
                         Ex = 0 ([k k c]);
                        
                         Ey = 0 ([k k c]);
                        
                         Ez = 0 ([k k c]);
                        
                         为jj = 1: c
                        
                         例(:,:,jj) = fftshift (fft2 (exp(1我* kz * mz * z (jj)。*
                        
                         (Gx。*。*保监会)-rot90 (exp(1我* kz * mz * z (jj)。* Gy。*磅。*保监会,3),k, k));
                        
                         考虑:,:,jj) = fftshift (fft2 (exp(1我* kz * mz * z (jj)。*
                        
                         (Gy。*。*保监会)+ rot90 (exp(1我* kz * mz * z (jj)。* Gx。*磅。*保监会,3),k, k));
                        
                         Ez (:,:, jj) = fftshift (fft2 (exp(1我* kz * mz * z (jj)。*
                        
                         (广州。*。*保监会)+ rot90 (exp(1我* kz * mz * z (jj)。*广州。*磅。*保监会,3),k, k));
                        
                         结束
                        
                         =交货前(k / 2::);
                        
                         嗯= Ey (k / 2::);
                        
                         Ez = Ez (k / 2::);
                        
                         前女友=挤压(特异);
                        
                         嗯=挤压(Ey);
                        
                         Ez =挤压(Ez);
                        
                         第九=交货。*连接词(例);
                        
                         Iy =嗯。*连词(Ey);
                        
                         工业区= Ez。*连词(Ez);
                        
                         我=第九+ Iy +工业区;
                        
                         t = 0;
                        
                         I1 =((我)。* exp(1 *π* t);
                        
                         t = (2/7);
                        
                         I2 =((我)。* exp(1 *π* t);
                        
                         t = (2 * 2/7);
                        
                         I3 =((我)。* exp(1 *π* t);
                        
                         t = (3 * 2/7);
                        
                         当=((我)。* exp(1 *π* t);
                        
                         t = (4 * 2/7);
                        
                         I5 =((我)。* exp(1 *π* t);
                        
                         t = (5 * 2/7);
                        
                         16 =((我)。* exp(1 *π* t);
                        
                         t = (6 * 2/7);
                        
                         I7 =((我)。* exp(1 *π* t);
                        
                         t = 7 * 2/7;
                        
                         I8 =((我)。* exp(1 *π* t);
                        
                         图(7)
                        
                         次要情节(2、4、1),显示亮度图像(I1。*连词(I1)), colormap灰色的;轴图像;轴从
                        
                         次要情节(2、4、2),显示亮度图像(I2。*连词(I2)), colormap灰色的;轴图像;轴从
                        
                         次要情节(2、4、3),显示亮度图像(I3。*连词(I3)), colormap灰色的;轴图像;轴从
                        
                         次要情节(2、4、4),显示亮度图像(预告。*连词(预告)),colormap灰色的;轴图像;轴从
                        
                         次要情节(2、4、5),显示亮度图像(I5。*连词(I5)), colormap灰色的;轴图像;轴从
                        
                         次要情节(2、4、6),显示亮度图像(16 *连词(16)),colormap灰色的;轴图像;轴从
                        
                         次要情节(2、4、7),显示亮度图像(I7。*连词(I7)), colormap灰色的;轴图像;轴从
                        
                         次要情节(2、4、8);显示亮度图像(I8。*连词(I8)), colormap灰色的;轴图像;轴从
                        
                         电影(F(t))