rows=31;cols=47; ScaleWindow(0, 0,cols, rows) Colour(Blue); BoxFill(0,0,cols+1,rows+1); //document.trace.test.value="started"; pic1=new Array(cols);pic2=new Array(cols); for(var i = 0;i<=cols;i++){ pic1[i]=new Array(rows);pic2[i]=new Array(rows); } for (i = 0;i< cols;i++){ for (j = 0; j<rows;j++) { pic2[i][j] = 0.; } } window.poisson=function() { for(var j = 1;j<rows-1;j++) { for(var i = 1;i<cols-1;i++){ a = (pic1[i-1][j] +pic1[i+1][j]+pic1[i][j-1]+pic1[i][j+1]- 4*pic1[i][j]); pic2[i][j] = pic1[i][j]+k*a; } } } running=true; showpic2(); k=0.1; setTimeout('RunModel();',20); poisson(); showpic2(); if(running){setTimeout('RunModel();',10);}