int main() {
// Make an object of the template class. The names inside <> define the
// class names of the two random number generators to combine.
// Use time as seed.
int seed = (int)time(0);
int i;
// Declare object of combined generator
TRandomCombined<CRandomMersenne,CRandomMother> RG(seed);
for (i = 0; i < 20; i++) {
// generate 20 random floating point numbers and 20 random integers
printf("\n%14.10f %2i", RG.Random(), RG.IRandom(0,99));
}
printf("\n");
EndOfProgram();
return 0;
}
void ResourcesPage::initControl()
{
rootId = AddRoot( "Resources", resGroupIcons[RG(General)] );
//resGroupIds[RG(General)] = AppendItem(rootId, "General", resGroupIcons[RG(General)]);
Enum* enuhm = ReflectionGetType(ResourceGroup);
const EnumValuesMap& values = enuhm->values;
EnumValuesMap::const_iterator it;
for( it = values.begin(); it != values.end(); it++ )
{
ResourceGroup group = (ResourceGroup) it->second;
resGroupIds[group] = AppendItem(rootId, it->first, resGroupIcons[group]);
}
Bind(wxEVT_COMMAND_TREE_SEL_CHANGED, &ResourcesPage::onItemChanged, this);
Bind(wxEVT_COMMAND_TREE_ITEM_MENU, &ResourcesPage::onTreeItemMenu, this);
Bind(wxEVT_COMMAND_MENU_SELECTED, &ResourcesPage::onCommandMenuSelected, this);
}
void compute(const vle::devs::Time& /* t */)
{
PAR = 0.5 * 0.01 * RG();
Tmean = std::max(0.0, (Tmin() + Tmax()) / 2);
if (SemRec() == 2) {
SemRecVar = 0;
} else if (SemRec() == 1) {
SemRecVar = 1;
}
if (SemRecVar() == 0) {
ST = 0;
LAI = 0;
} else if (SemRecVar() == 1) {
ST = ST() + Tmean();
LAI = std::max(0.0, Lmax() * ((1 / (1 + std::exp(-A() * (ST() - TI())))) -
std::exp(B() * (ST() - Tr()))));
}
U = U(-1) + Eb() * Eimax() * (1 - std::exp(-K() * LAI())) * PAR();
}
static bool
WriteWaveHeader(
FlacDecodeArgs *args)
{
bool result = false;
size_t rv;
unsigned int totalSize
= (unsigned int)(args->totalSamples * args->channels * (args->bitsPerSample/8));
int iv;
short sv;
RG(fwrite("RIFF", 1, 4, args->fout),4);
iv = totalSize + 36;
RG(fwrite(&iv, 1, 4, args->fout), 4);
RG(fwrite("WAVEfmt ", 1, 8, args->fout), 8);
iv=16;
RG(fwrite(&iv, 1, 4, args->fout), 4);
sv=1;
RG(fwrite(&sv, 1, 2, args->fout), 2);
sv = args->channels;
RG(fwrite(&sv, 1, 2, args->fout), 2);
iv=args->sampleRate;
RG(fwrite(&iv, 1, 4, args->fout), 4);
iv=args->sampleRate * args->channels * (args->bitsPerSample/8);
RG(fwrite(&iv, 1, 4, args->fout), 4);
sv = args->channels * (args->bitsPerSample/8);
RG(fwrite(&sv, 1, 2, args->fout), 2);
sv = args->bitsPerSample;
RG(fwrite(&sv, 1, 2, args->fout), 2);
RG(fwrite("data", 1, 4, args->fout), 4);
iv=totalSize;
RG(fwrite(&iv, 1, 4, args->fout), 4);
result =true;
end:
return result;
}
