元胞自动机程序(国外英文资料).docVIP

元胞自动机程序(国外英文资料) Matlab for the cellular automaton (collection and redistribute) technology on 03-13 13:04:28 reading 121 comments 0 words: large and small subscriptions. File: life. M % % initialization M = 50; X = zeros (m, m); X (25, 25) = 1; N = [m 1: m - 1]; E = [2: m 1]; S = [2: m 1]; W = [m 1: m - 1]; % draw the initial graph [I, j] = find (X); Figure (GCF); Plothandle = plot (I, j, ... Color, blue... MarkerSize, 12); Axis ([0 m + 1 0 m + 1]); % % evolution For k = 1:50 % neighbor number N = X (N, :) + X (s, :) + X (:) + X (:, w) +... X (n, e) + X (n, w) + X (s) + X (s, w); % probability matrix RAND = RAND (m); % s X is equal to X. % drawing [I, j] = find (X); Set (plothandle, xdata, I, ydata, j) drawnow Pause (0.2) K. The end The file 2: The function sierpinski (n); The sierpinski right Angle gasket is generated using the cellular automata % Example: % sierpinski (256); The % % algorithm: sun blog, fractal algorithm and programming: in Visual c + + implementation If nargin = = 0; N = 256; The end X = ones (n); X of 1, n minus 1 is 0; H = imshow (X, []); Set (GCF, doublebuffer, on); K = 1; While k n. X (k + 1: end - 1) = xor (k, 1: end - 1), X (k, 2: end)); X (k + 1, n) = 1; Set (H, CData, X); Pause (0.1); K = k + 1; The end The file 3: The function CA_sim_cloud; % use cellular automata to simulate the cloud picture of the earth satellite % % the reference: % Piazza, E. Cuccoli, f.; And the Cellular Automata Simulation of Clouds in Satellite Images, % Geoscience and Remote Sensing Symposium, 2001. IGARSS 01. % IEEE 2001 International Volume 4, 9-13 July 2001 Page (s) : % 1722-1724 vol. 4 Digital Object Identifier 10.1109 / IGARSS. % 2001.977050 Time = 888; The % program executes the steps M = 240; N = 320; S = round (rand (M, N) * 15); P = [1, 2, 1, 6, 6, 1, 2, 1]; So p is equal to sum (the meshgrid (p), 2) / 20; Rand ( state , 0); SS = S; R = rand (M, N); G = R. B = R; C = cat (3, R, G, B); FIG = figure; Set (FIG, DoubleBuffer, on); Mov = avifile ( example2.