A Magyar Hidrológiai Társaság XV. Országos Vándorgyűlése II. kötet (Kaposvár, 1997. július 9-11.)

INFORMATIKAI ESZKÖZÖK ÉS ELJÁRÁSOK ALKALMAZÁSA A VÍZGAZDÁLKODÁSBAN - Bakucz Péter: Fraktálgeometria a felszín alatti vízgazdálkodásban

hogy vele "akar" cserélni. Megoldás erre a problémára, hogy ketté bontjuk a lépéseket: először a bal szomszéddal történő cseréket bonyolítjuk le, majd a jobb szomszéddal. A rendszer identifikációjához szükséges, hogy ha egy sejt cserélni "akar" mondjuk a bal szomszédjával, akkor a szomszédja is pont cserélni "akarjon" vele. A sejtteret feloszthatjuk szomszédos sejtpárokra, és a szabálynak egy-egy ilyen sejtpárra van értelme: véletlenszerűen megcseréljük a sejtpárt, vagy nem. Ezzel elvégeztük az egyik irányit cserét. Most megváltoztatjuk a csoportosítást, hogy pont azok a részecskék legyenek párba, amelyek az előbb nem voltak (azaz, ha mondjuk egy sejt az első lépésben a bal szomszédjával volt párban, akkor a második lépésben a jobbal lesz;. A szimuláció első lépéseként a porózus közeg és rajta egy sebességtér veendő fel. Ezen művelet a későbbi, a konkrét számítási műveletek eredményeinek ismeretében úgy realizálható, hogy tekintve a sebességértékek mint valószínűségi változó, az ismert eloszlásfüggvényből generálható ki az adott sejtre érvényes sebességérték. Vizsgálatunkat most a FORTH programkódok irányába kiterjesztve (ehelyütt feltételezünk bizonyos FORTH előismeretet) definiáljunk egy új szomszédsági szót, az OPPOSITE-Ot. EZ a részecske aktuális párjának az állapotát adja. Ez függ attól, hogy páros, vagy páratlan időpillanatban vagyunk-e, illetve hogy páros, vagy páratlan vízszintes koordinátájú sejtről van-e szó: : OPPOSITE GETSTEP GETXY DROP XOR 1 AND { EAST GiEST } : J3OPPOSITE GETSTEP GETXY DROP XOR 1 AND { BEAST BH1EST} : OPPOS1TES GETSTEP GETXY DROP XOR 1 AND { EASTS WESTS } A GETSTEP a veremre helyezi hogy hányadik lépésnél vagyunk. Kell még egy véletlenszám a sejtpárok mindkét tagjára: : BSTiR. BCBNTER NORTTI WEST SOUTH EAST AND XOR XOR XOR :FLN2 1017