matlab例程

开发平台：

Matlab

wrap.m：源码内容

							% Program 7-3
%
% wrap.m
%
% This function gives informations about cell-wrapping	
%
% Programmed by F. Kojima
% Checked by H.Harada
%
function [out] =  wrap(inputmat)
inputmat( 1,1:19) = 1:19;
inputmat( 2,1:19) = [ 2, 9,10, 3, 1, 7, 8,14,13,17,16,11,12, 4, 5, 6,18,19,15];
inputmat( 3,1:19) = [ 3,10,11,12, 4, 1, 2, 9,17,16,15,19,18,13,14, 5, 6, 7, 8];
inputmat( 4,1:19) = [ 4, 3,12,13,14, 5, 1, 2,10,11,19,18,17, 9, 8,15,16, 6, 7];
inputmat( 5,1:19) = [ 5, 1, 4,14,15,16, 6, 7, 2, 3,12,13, 9, 8,19,11,10,17,18];
inputmat( 6,1:19) = [ 6, 7, 1, 5,16,17,18,19, 8, 2, 3, 4,14,15,11,10, 9,13,12];
inputmat( 7,1:19) = [ 7, 8, 2, 1, 6,18,19,15,14, 9,10, 3, 4, 5,16,17,13,12,11];
inputmat( 8,1:19) = [ 8,14, 9, 2, 7,19,15, 5, 4,13,17,10, 3, 1, 6,18,12,11,16];
inputmat( 9,1:19) = [ 9,13,17,10, 2, 8,14, 4,12,18, 6,16,11, 3, 1, 7,19,15, 5];
inputmat(10,1:19) = [10,17,16,11, 3, 2, 9,13,18, 6, 5,15,19,12, 4, 1, 7, 8,14];
inputmat(11,1:19) = [11,16,15,19,12, 3,10,17, 6, 5,14, 8, 7,18,13, 4, 1, 2, 9];
inputmat(12,1:19) = [12,11,19,18,13, 4, 3,10,16,15, 8, 7, 6,17, 9,14, 5, 1, 2];
inputmat(13,1:19) = [13,12,18,17, 9,14, 4, 3,11,19, 7, 6,16,10, 2, 8,15, 5, 1];
inputmat(14,1:19) = [14, 4,13, 9, 8,15, 5, 1, 3,12,18,17,10, 2, 7,19,11,16, 6];
inputmat(15,1:19) = [15, 5,14, 8,19,11,16, 6, 1, 4,13, 9, 2, 7,18,12, 3,10,17];
inputmat(16,1:19) = [16, 6, 5,15,11,10,17,18, 7, 1, 4,14, 8,19,12, 3, 2, 9,13];
inputmat(17,1:19) = [17,18, 6,16,10, 9,13,12,19, 7, 1, 5,15,11, 3, 2, 8,14, 4];
inputmat(18,1:19) = [18,19, 7, 6,17,13,12,11,15, 8, 2, 1, 5,16,10, 9,14, 4, 3];
inputmat(19,1:19) = [19,15, 8, 7,18,12,11,16, 5,14, 9, 2, 1, 6,17,13, 4, 3,10];
out = inputmat;
%******* end of file *********

						