1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
|
#ifndef GGVIS_H
#include "defines.h"
#include "plugin.h"
#define UNIFORM 0
#define NORMAL 1
#define STRESSPLOT_WIDTH 250
#define STRESSPLOT_HEIGHT 100
#define STRESSPLOT_MARGIN 10
#define NSTRESSVALUES 1000
#define STRESSPLOT_MARGIN 10
#define HISTOGRAM_WIDTH 250
#define HISTOGRAM_HEIGHT 100
#define HISTOGRAM_VMARGIN 5
#define HISTOGRAM_HMARGIN 24 /* should be an even number */
#define HISTOGRAM_GRIP_SPACE 10
#define HISTOGRAM_GRIP_HEIGHT 10 /* should be even number */
#define HISTOGRAM_GRIP_WIDTH 20 /* should be even number */
#define HISTOGRAM_BWIDTH 5
/* used in mds.c, shepard.c, ggv_cbacks.c */
#define IJ i*ggv->Dtarget.ncols+j
#define JI j*ggv->Dtarget.nrows+i
typedef int (*CompareFunc)(const void *, const void *);
/*typedef enum {within, between, anchorscales, anchorfixed} MDSGroupInd;*/
typedef enum {all_distances, within, between} MDSGroupInd;
typedef enum {no_anchor, scaled, fixed} MDSAnchorInd;
typedef enum {metric, nonmetric} MDSMetricInd;
typedef enum {KruskalShepard, classic} MDSKSInd;
typedef enum {LinkDist, VarValues} MDSDtargetSource;
typedef enum {DissimAnalysis, GraphLayout} MDSTask;
#define EXCLUDED 0
#define INCLUDED 1
#define ANCHOR 2
#define DRAGGED 4
typedef struct {
GtkWidget *da;
GdkPixmap *pix;
gdouble low, high;
gint lgrip_pos, rgrip_pos;
gint lgrip_down, rgrip_down;
GdkRectangle *bars;
vector_b bars_included;
vector_i bins;
gint nbins;
} dissimd;
typedef struct {
GGobiData *dsrc; /*-- original data values --*/
GGobiData *dpos; /*-- the new datad which contains the values in pos --*/
GGobiData *e; /*-- edge set, corresponds both to dsrc and dpos --*/
gboolean running_p;
guint idle_id;
array_d Dtarget; /*-- D in the documentation; dist in the xgvis code --*/
array_d pos;
GtkWidget *stressplot_da;
GdkPixmap *stressplot_pix;
vector_d stressvalues; /*-- allocated to hold NSTRESSVALUES values --*/
gint nstressvalues; /*-- the number of stress values */
dissimd *dissim;
gint dim;
gdouble stepsize;
gdouble Dtarget_power; /* was mds_power */
gdouble weight_power; /* was mds_weightpow */
gdouble dist_power; /* was mds_distpow */
gdouble lnorm;
gdouble dist_power_over_lnorm;
gdouble lnorm_over_dist_power;
gdouble isotonic_mix;
gdouble within_between;
gdouble rand_select_val;
gdouble rand_select_new;
gdouble perturb_val;
gdouble threshold_high;
gdouble threshold_low;
vector_d pos_mean;
vector_d weights;
vector_d trans_dist;
vector_d config_dist;
vector_i point_status;
vector_i trans_dist_index, bl;
array_d gradient;
vector_d bl_w;
gdouble pos_scl;
gdouble Dtarget_max, Dtarget_min;
vector_d rand_sel;
gint freeze_var;
gint ndistances;
gint num_active_dist;
gint prev_nonmetric_active_dist;
MDSMetricInd metric_nonmetric;
MDSKSInd KruskalShepard_classic;
MDSTask mds_task; /* DissimAnalysis or GraphLayout */
MDSDtargetSource Dtarget_source;
gint weight_var; /* index of the variable which is the source of
the distance matrix or vector of weights */
GtkWidget *tree_view_dist;
gboolean complete_Dtarget;
MDSGroupInd group_ind;
/* anchors */
MDSAnchorInd anchor_ind;
vector_b anchor_group;
GtkWidget *anchor_frame, *anchor_table;
gint n_anchors;
GtkTooltips *tips;
GtkWidget *varnotebook; /* this might make it easier to destroy */
/*-- for Shepard plot --*/
gint shepard_iter;
} ggvisd;
/*----------------------------------------------------------------------*/
/* functions */
/*----------------------------------------------------------------------*/
void ggvis_init (ggvisd *, ggobid *gg);
ggvisd* ggvisFromInst (PluginInstance *inst);
void mds_run_cb (GtkToggleButton *btn, PluginInstance *inst);
void mds_step_cb (GtkWidget *btn, PluginInstance *inst);
void mds_reinit_cb (GtkAction *action, PluginInstance *inst);
void mds_scramble_cb (GtkAction *action, PluginInstance *inst);
void mds_reset_params_cb (GtkAction *action, PluginInstance *inst);
void update_ggobi (ggvisd *ggv, ggobid *gg);
/*void ggv_dsource_cb (GtkWidget *w, gpointer cbd);*/
void ggv_complete_distances_cb (GtkToggleButton *button, PluginInstance *inst);
void ggv_edge_weights_cb (GtkToggleButton *button, PluginInstance *inst);
void ggv_groups_cb (GtkToggleButton *button, gpointer cbd);
void ggv_anchor_cb (GtkToggleButton *button, gpointer cbd);
gint ggv_stressplot_configure_cb (GtkWidget *, GdkEventExpose *, PluginInstance *);
gint ggv_stressplot_expose_cb (GtkWidget *, GdkEventExpose *, PluginInstance *);
void ggv_task_cb (GtkToggleButton *button, PluginInstance *inst);
gint ggv_histogram_configure_cb (GtkWidget *, GdkEventExpose *, PluginInstance *);
gint ggv_histogram_expose_cb (GtkWidget *, GdkEventExpose *, PluginInstance *);
void ggv_histogram_init (ggvisd *ggv, ggobid *gg);
gint ggv_histogram_motion_cb (GtkWidget *w, GdkEventMotion *xmotion, PluginInstance *inst);
void ggv_histogram_button_press_cb (GtkWidget *w, GdkEventButton *evnt, PluginInstance *inst);
void ggv_histogram_button_release_cb (GtkWidget *w, GdkEventButton *evnt, PluginInstance *inst);
void ggv_Dtarget_histogram_update (ggvisd *, ggobid *);
void ggv_metric_cb (GtkWidget *w, PluginInstance *inst);
void ggv_metric (GtkWidget *w, PluginInstance *inst, gint param);
void ggv_kruskal_cb (GtkWidget *w, PluginInstance *inst);
void ggv_constrained_cb (GtkWidget *w, PluginInstance *inst);
void ggv_dims_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_perturb_adj_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_perturb_btn_cb (GtkWidget *w, PluginInstance *inst);
void ggv_selection_prob_adj_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_selection_prob_btn_cb (GtkWidget *w, PluginInstance *inst);
void ggv_stepsize_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_dist_power_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_Dtarget_power_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_lnorm_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_weight_power_cb (GtkAdjustment *adj, PluginInstance *inst);
void ggv_center_scale_pos (ggvisd *ggv);
greal ggv_randvalue (gint type);
void update_stress (ggvisd *ggv, ggobid *gg);
void ggv_compute_Dtarget (gint selected_var, ggvisd *ggv);
void ggv_init_Dtarget (gint, ggvisd *ggv);
void ggv_anchor_table_build (PluginInstance *inst);
void mds_func (gboolean, PluginInstance *);
void mds_once (gboolean doit, ggvisd *ggv, ggobid *gg);
void mds_open_display_cb (GtkWidget *btn, PluginInstance *inst);
void clusters_changed_cb (ggobid *, GGobiData *, void *);
void create_shepard_data_cb (GtkAction *action, PluginInstance *inst);
void ggv_free (ggvisd *);
#define GGVIS_H
#endif
|
