Реферат: Имитационная модель интеллектуального агента в условиях конкуренции

} while (!((radsqr>0) && (radsqr<1)));

nrasp_result=r1*sqrt(-2*log(radsqr)/radsqr)*stddev+m;

return nrasp_result;

}

void fillClients(array a,integ r,integ *tmp)

{

int i,j;

srand(1);

for (j=1;j<=r;j++) {

InPara2(a,real,1,j) = rand()%200 + 10;

InPara2(a,real,2,j) = rand()%40 + 30;

InPara2(a,real,3,j) = rand()%2;

InPara2(a,real,4,j) = nrasp(25,5);

InPara2(a,real,5,j) = exprasp(50);

InPara2(a,real,6,j) = rand()&2+1;

InPara2(a,real,7,j) = nrasp(2.5,0.5);

InPara2(a,real,8,j) = exprasp(200);

InPara2(a,real,9,j) = nrasp(0.5,0.5);

}

}

BASIC COMPONENT buyer

MOBILE SUBCOMPONENT OF CLASS query

LOCAL DEFINITIONS

C_PROCEDURE fillClients (ARRAY[n][s] REAL,INTEGER --> INTEGER)

DECLARATION OF ELEMENTS

STATE VARIABLES

ARRAY[9][100] criterion (REAL):=0,

TNext(INTEGER):=0,

tmp(INTEGER):=0