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
|
#include <gtk/gtk.h>
#include "ggobi.h"
#include "externs.h"
#include "GGobiAPI.h"
#include <stdio.h>
#include "plugin.h"
#include "ggvis.h"
void
ggvis_init (ggvisd *ggv, ggobid *gg)
{
GGobiData *d;
GSList *l;
/*-- initialize the datad pointers --*/
ggv->dsrc = NULL;
ggv->dpos = NULL;
ggv->e = NULL;
ggv->running_p = false;
ggv->idle_id = 0;
arrayd_init_null (&ggv->Dtarget);
arrayd_init_null (&ggv->pos);
ggv->stressplot_pix = NULL;
ggv->nstressvalues = 0;
vectord_init_null (&ggv->stressvalues);
vectord_alloc (&ggv->stressvalues, NSTRESSVALUES);
ggv->dissim = (dissimd *) g_malloc (sizeof (dissimd));
ggv->dissim->pix = NULL;
ggv->dissim->low = 0.;
ggv->dissim->high = 1.;
ggv->dissim->lgrip_pos = -1;
ggv->dissim->rgrip_pos = -1;
ggv->dissim->bars = NULL;
vectorb_init_null (&ggv->dissim->bars_included);
vectori_init_null (&ggv->dissim->bins);
ggv->dim = 3;
ggv->stepsize = 0.02;
ggv->dist_power = 1.0;
ggv->Dtarget_power = 1.0;
ggv->lnorm = 2.0;
ggv->weight_power = 0.0;
ggv->isotonic_mix = 1.0;
ggv->dist_power_over_lnorm = 0.5;
ggv->lnorm_over_dist_power = 2.0;
ggv->within_between = 1.0;
ggv->rand_select_val = 1.0; /* selection probability */
ggv->rand_select_new = false;
ggv->perturb_val = 1.0;
ggv->threshold_high = 0.0;
ggv->threshold_low = 0.0;
ggv->metric_nonmetric = metric;
ggv->KruskalShepard_classic = KruskalShepard;
ggv->num_active_dist = 0;
/* Assume that we're doing graph layout */
ggv->mds_task = GraphLayout;
ggv->Dtarget_source = LinkDist;
ggv->complete_Dtarget = true;
ggv->weight_var = -1;
/*
Then loop over datads, looking for one devoted to specifying
dissimilarities for MDS
*/
for (l = gg->d; l; l = l->next) {
d = l->data;
if (d->edge.n > 0) {
if (g_strcasecmp (d->name, "dist") == 0 ||
g_strcasecmp (d->name, "distance") == 0 ||
g_strcasecmp (d->name, "dissim") == 0)
{ /* then we're in the MDS case */
ggv->mds_task = DissimAnalysis;
break;
}
}
}
ggv->group_ind = all_distances;
ggv->anchor_ind = no_anchor;
ggv->anchor_table = (GtkWidget *) NULL;
vectorb_init_null (&ggv->anchor_group);
ggv->n_anchors = 0;
/*-- used in mds.c --*/
vectord_init_null (&ggv->pos_mean);
vectord_init_null (&ggv->weights);
vectord_init_null (&ggv->rand_sel);
vectord_init_null (&ggv->trans_dist);
vectord_init_null (&ggv->config_dist);
vectori_init_null (&ggv->point_status);
vectori_init_null (&ggv->trans_dist_index);
vectori_init_null (&ggv->bl);
vectord_init_null (&ggv->bl_w);
arrayd_init_null (&ggv->gradient);
ggv->pos_scl = 0.0;
ggv->freeze_var = 0;
ggv->Dtarget_max = G_MAXDOUBLE;
ggv->Dtarget_min = -G_MAXDOUBLE;
ggv->prev_nonmetric_active_dist = 0;
/* */
ggv->shepard_iter = 0;
}
|
