void grobner::display_monomial(std::ostream & out, monomial const & m) const {
if (!m.m_coeff.is_one() || m.m_vars.empty()) {
out << m.m_coeff;
if (!m.m_vars.empty())
out << "*";
}
if (!m.m_vars.empty()) {
ptr_vector<expr>::const_iterator it = m.m_vars.begin();
ptr_vector<expr>::const_iterator end = m.m_vars.end();
unsigned power = 1;
expr * prev = *it;
it++;
for (; it != end; ++it) {
expr * curr = *it;
if (curr == prev) {
power++;
}
else {
display_var(out, prev);
if (power > 1)
out << "^" << power;
power = 1;
prev = curr;
out << "*";
}
}
display_var(out, prev);
if (power > 1)
out << "^" << power;
}
}
static void doubleclick_action (windata_t *vwin)
{
switch (vwin->role) {
case MAINWIN:
if (dataset != NULL && dataset->n > 0) {
display_var();
}
break;
case TEXTBOOK_DATA:
browser_open_data(NULL, vwin);
break;
case PS_FILES:
browser_open_ps(NULL, vwin);
break;
case FUNC_FILES:
browser_call_func(NULL, vwin);
break;
case NATIVE_DB:
open_db_index(NULL, vwin);
break;
case REMOTE_DB:
open_remote_db_index(NULL, vwin);
break;
case NATIVE_SERIES:
case RATS_SERIES:
case PCGIVE_SERIES:
case REMOTE_SERIES:
display_db_series(vwin);
break;
default:
break;
}
}
static gint var_popup_click (GtkWidget *w, gpointer p)
{
gchar *item = (gchar *) p;
int v = mdata_active_var();
if (!strcmp(item, _("Display values"))) {
display_var();
} else if (!strcmp(item, _("Summary statistics"))) {
do_menu_op(VAR_SUMMARY, NULL, OPT_NONE);
} else if (!strcmp(item, _("Time series plot"))) {
do_graph_var(v);
} else if (!strcmp(item, _("Panel plot..."))) {
do_graph_var(v);
} else if (!strcmp(item, _("Frequency distribution"))) {
do_freq_dist();
} else if (!strcmp(item, _("Boxplot"))) {
menu_boxplot_callback(v);
} else if (!strcmp(item, _("Gini coefficient"))) {
do_gini();
} else if (!strcmp(item, _("Correlogram"))) {
do_corrgm();
} else if (!strcmp(item, _("Periodogram"))) {
do_pergm(NULL);
} else if (!strcmp(item, _("ARIMA model"))) {
selector_set_varnum(v);
modelspec_dialog(ARMA);
} else if (!strcmp(item, _("Dickey-Fuller test"))) {
unit_root_test(ADF);
} else if (!strcmp(item, _("KPSS test"))) {
unit_root_test(KPSS);
} else if (!strcmp(item, _("Edit attributes"))) {
varinfo_dialog(v);
} else if (!strcmp(item, _("Edit values"))) {
show_spreadsheet(SHEET_EDIT_VARLIST);
} else if (!strcmp(item, _("Copy to clipboard"))) {
csv_selected_to_clipboard();
} else if (!strcmp(item, _("Delete"))) {
delete_single_var(v);
} else if (!strcmp(item, _("Add log"))) {
add_logs_etc(LOGS, v);
} else if (!strcmp(item, _("Add difference"))) {
add_logs_etc(DIFF, v);
} else if (!strcmp(item, _("Define new variable..."))) {
genr_callback();
}
gtk_widget_destroy(mdata->popup);
return FALSE;
}
void grobner::display_vars(std::ostream & out, unsigned num_vars, expr * const * vars) const {
for (unsigned i = 0; i < num_vars; i++) {
display_var(out, vars[i]);
out << " ";
}
}
