void CharacterData::makeDeepCopy(const CharacterData &character_data)
{
copyData(character_data.data, data);
copyData(character_data.train_data, train_data);
copyData(character_data.test_data, test_data);
stats = character_data.stats;
data_size = countData(data);
train_size = countData(train_data);
test_size = data_size - train_size;
};
int movie(char *command, const char *frameFile)
{
int failed = TRUE;
double step;
LINEBUF frameData[1];
register int j;
static const char noDataMsg[] = "/** Data file does not define any fields **/";
if (*command == 'R' || *command == 'D' || *command == 'I') {
loadData(infile);
if (npnts < 1) return TRUE;
step = (qmax - qmin) / (double) (npnts - 1);
for (j = 0; j < npnts; j++)
xtemp[j] = (double) j * step + qmin;
if (extend(xtemp, npnts, lambda, lamdel, thedel) == NULL)
return TRUE;
}
if (openBuf(frameFile, "r", frameData, FBUFFLEN) == NULL)
noFile(frameFile);
else {
int frames;
long headerOffset;
frames = countData(frameData);
headerOffset = locateHeader(frameData);
if (headerOffset == -1)
puts(noDataMsg);
else {
int numFields;
setNextLine(frameData, headerOffset);
getNextLine(frameData);
numFields = loadFields(frameData, frameData->buffer+1);
if (numFields == 0)
puts(noDataMsg);
else if (numFields > 0) {
FILE *gnuPipe;
genva(fields, 1, fitlist);
gnuPipe = popen("gnuplot", "w");
if (gnuPipe != NULL) {
failed = runMovie(npnts, frames, numFields, frameData, gnuPipe, command);
pclose(gnuPipe);
}
}
}
closeBuf(frameData, 0);
}
return failed;
}
int movie(char *command, int xspin[4], const char *frameFile)
{
int failed = TRUE;
LINEBUF frameData[1];
static const char noDataMsg[] = "/** Data file does not define any fields **/";
/* Determine reflectivities to print */
setPspin(pspin, xspin, command + 1);
if ((*command == 'R' || *command == 'D' || *command == 'I') && (
loadData(infile, xspin) ||
extend(q4x, n4x, lambda, lamdel, thedel) == NULL
)
) return TRUE;
if (openBuf(frameFile, "r", frameData, FBUFFLEN) == NULL)
noFile(frameFile);
else {
int frames;
long headerOffset;
frames = countData(frameData);
headerOffset = locateHeader(frameData);
if (headerOffset == -1)
puts(noDataMsg);
else {
int numFields;
setNextLine(frameData, headerOffset);
getNextLine(frameData);
numFields = loadFields(frameData, frameData->buffer + 1);
if (numFields == 0)
puts(noDataMsg);
else if (numFields > 0) {
FILE *gnuPipe;
genva(fields, 1, fitlist);
gnuPipe = popen("gnuplot", "w");
if (gnuPipe != NULL) {
failed = runMovie(frames, numFields, frameData, gnuPipe, command);
pclose(gnuPipe);
}
}
}
closeBuf(frameData, 0);
}
return failed;
}
static void
testCount (adtree_t* adtreePtr,
data_t* dataPtr,
vector_t* queryVectorPtr,
long index,
long numVar)
{
if (index >= numVar) {
return;
}
long count1 = adtree_getCount(adtreePtr, queryVectorPtr);
long count2 = countData(dataPtr, queryVectorPtr);
if (global_doPrint) {
printQuery(queryVectorPtr);
printf(" count1=%li count2=%li\n", count1, count2);
fflush(stdout);
}
assert(count1 == count2);
query_t query;
long i;
for (i = 1; i < numVar; i++) {
query.index = index + i;
bool_t status = vector_pushBack(queryVectorPtr, (void*)&query);
assert(status);
query.value = 0;
testCount(adtreePtr, dataPtr, queryVectorPtr, query.index, numVar);
query.value = 1;
testCount(adtreePtr, dataPtr, queryVectorPtr, query.index, numVar);
vector_popBack(queryVectorPtr);
}
}
void ModelInfo::onObjectAdd()
{
countData();
printInfo();
}
