|
MVLib - Short Writeup - Version 4.0 Example Number 34 - Cellular Automata |
This example show hout to use cellularinit, cellularplot and cellularplotrule
routines
The fortran code is available here and the complete script running the code is available here. |
|||||||
|
|
|
||||||
| ||||||||
parameter (nx=90,ny=90) ; integer m(nx,ny)
m=0
do ic=9,81,9 ; do jc=9,81,9
call cellularinit(m,nx,ny,1,ic,jc)
enddo ; enddo
call cellularplot(m,nx,ny)
call displayexample('example34','cellularplot routine',' ')
call cellularplotrule(0,'example34')
end
| ||||||||