//--------------------------------------------------------------------------- #ifndef globalsH #define globalsH //--------------------------------------------------------------------------- // on change, set TrackBarNCELL2 min, max, Position correctly #define NCELL2BEG 10 #define NCELL2MAX 100 #define NCELL2MIN 3 #define NCELL (NCELL2MAX*NCELL2MAX) #define CELLWIDTH (((GrAuditory*)auditory)->Owner->cellWidth) #define CELLSPACE 1 #define CELLCOLD 0 #define CELLHOT 255 #define CELLHOTAPPLAUS (((GrAuditory*)auditory)->Owner->cellHotApplaus) #define STANDINGCELLBORDER ((TColor)0xffffff) #define SITTINGCELLBORDER ((TColor)0) #define CELLBORDERWIDTH 1 #define COLOR(applaus) ((TColor)(int)((CELLHOTAPPLAUS>applaus)?\ (applaus*(CELLHOT-CELLCOLD)/CELLHOTAPPLAUS + CELLCOLD):CELLHOT)) #define CELLLeftUp(x,y) x*(CELLWIDTH+CELLSPACE),y*(CELLWIDTH+CELLSPACE) #define CELLRightDown(x,y) x*(CELLWIDTH+CELLSPACE)+CELLWIDTH,\ y*(CELLWIDTH+CELLSPACE)+CELLWIDTH #define CELLRECT(x,y) CELLLeftUp(x,y),CELLRightDown(x,y) #define PERFGRAPHApplausMeanCOLOR ((TColor)0x0000ff) #define PERFGRAPHNOFSTANDINGCOLOR ((TColor)0xffffff) #define PERFGRAPHBIASCOLOR ((TColor)0xff0000) #define PERFGRAPHGRADIENT 20 #define PERFGRAPHRATIOTOP 0.9 #define PERFGRAPHDOWN 0 #define PERFGRAPHSPACE 10 #define DECLAREGAUSS(var,mean,StD) float const var##M = mean;\ float const var##SD = StD; #define GETGAUSS(var,const) var = getGauss( const##M , const##SD ); #define GETGAUSSpositive(var,const) \ var = (var = getGauss( const##M , const##SD ))>=0?var:0; float frand(); float getGauss(float mean, float sd); float getGaussPosit(float mean, float sd); // returns only positive value, if result would be negative returns 0 float getGaussPositButR(float mean, float sd, float R); // as getGaussPosit, but if result > R, returns R #define max(a,b) ((a)>(b)?(a):(b)) #define sqr(x) ((x)*(x)) //------------------------------------------------------------------------------ // structures to pass parameters in methods called in forEach struct Sum { float a; }; struct Count { int a; }; //------------------------------------------------------------------------------ #define BFGRStartValue 10 #define BFGRQuotient 0.2 #define BFConstant 0 #define RCInitial 175 #define BegValEditInitialApplausMean 5 #define BegValEditInitialApplausSD 2 #define BegValEditCTNMean 0.2 #define BegValEditCTNSD 0.2 #define BegValEditCTGMean 0 #define BegValEditCTGSD 0 #define BegValEditAPTOSTDM 10 #define BegValEditAPTOSTDSD 2 #define BegValEditCNTSTDNTSTNDM 0.3 #define BegValEditCNTSTDNTSTNDSD 0.2 #define BegValEditEXHAUSTM 5 #define BegValEditEXHAUSTSD 4 #define BegValEditRESTANDM 0 #define BegValEditRESTANDSD 4 #define BegValEditRandomProbablity 0.5 #define BightnessMin 1 #define BightnessMax 100 #define BightnessBeg 10 #endif