232 CHAPTER 5. EPIDEMICS, IMAGES AND MONEY
49. r*x(i)*dt/dx*(u(i,j,k)-u(i+1,j,k));
50. if (u(i,j,k+1)
?suro(i,j))
51. u(i,j,k+1) = suro(i,j);
52. end
53. if ((u(i,j,k+1)
Asuro(i,j))&...
54. (u(i,j,k)==suro(i,j)))
55. sur(i,j)= k+.5;
56. end
57. end
58. % Do y = L.
59. j=n+1;
60. for i = 2:n
61. u(i,j,k+1) = dt*f+x(i)*x(i)*alpha1*...
62. (u(i-1,j,k) + u(i+1,j,k)-2.*u(i,j,k)) ...
63. +u(i,j,k)*(1 -r*dt)- ...
64. r*x(i)*dt/dx*(u(i,j,k)-u(i+1,j,k));
65. if (u(i,j,k+1)
?suro(i,j))
66. u(i,j,k+1) = suro(i,j);
67. end
68. if ((u(i,j,k+1)
Asuro(i,j))&...
69. (u(i,j,k)==suro(i,j)))
70. sur(i,j)= k+.5;
71. end
72. end
73. % Do x = 0.
74. i=1;
75. for j = 2:n
76. u(i,j,k+1) = dt*f+y(j)*y(j)*alpha2*...
77. (u(i,j-1,k) + u(i,j+1,k)-2.*u(i,j,k))...
78. +u(i,j,k)*(1 -r*dt)-...
79. r*y(j)*dt/dy*(u(i,j,k)-u(i,j+1,k));
80. if (u(i,j,k+1)
?suro(i,j))
81. u(i,j,k+1) = suro(i,j);
82. end
83. if ((u(i,j,k+1)
Asuro(i,j)) &...
84. (u(i,j,k)==suro(i,j)))
85. sur(i,j)= k+.5;
86. end
87. end
88. % Do x = L.
89. i=n+1;
90. for j = 2:n
91. u(i,j,k+1) = dt*f+y(j)*y(j)*alpha2*...
92. (u(i,j-1,k) + u(i,j+1,k)-2.*u(i,j,k))...
93. +u(i,j,k)*(1 -r*dt)-...
© 2004 by Chapman & Hall/CRC