cluster.h

Go to the documentation of this file.

/*
 * This file is part of MPSolve 3.2.2
 *
 * Copyright (C) 2001-2020, Dipartimento di Matematica "L. Tonelli", Pisa.
 * License: http://www.gnu.org/licenses/gpl.html GPL version 3 or higher
 *
 * Authors:
 *   Leonardo Robol <leonardo.robol@unipi.it>
 */

 
#ifndef MPS_CLUSTER_H_
#define MPS_CLUSTER_H_
 
#define MPS_ALL_CLUSTERS -1
 
#include <mps/mps.h>
 
MPS_BEGIN_DECLS

struct mps_root {
  long int k;

  mps_root * next;

  mps_root * prev;
};

struct mps_cluster {
  long int n;

  mps_root * first;
  
  pthread_mutex_t lock;
};

struct mps_cluster_item {
  mps_cluster * cluster;

  mps_cluster_item * next;

  mps_cluster_item * prev;

  mps_cluster_item * detached;
};

struct mps_clusterization {
  long int n;

  mps_cluster_item * first;
};
 
/*********************************************************************************
*                                   FUNCTIONS                                   *
*********************************************************************************/
 
void mps_cluster_reset (mps_context * s);
void mps_fcluster (mps_context * s, double * frad, int nf);
void mps_dcluster (mps_context * s, rdpe_t * drad, int nf);
void mps_mcluster (mps_context * s, rdpe_t * drad, int nf);
void mps_debug_cluster_structure (mps_context * s);
void mps_cluster_analysis (mps_context * ctx, mps_polynomial * p);
 
/* Functions for mps_cluster */
mps_cluster * mps_cluster_empty (mps_context * s);
mps_cluster * mps_cluster_with_root (mps_context * s, long int root_index);
void mps_cluster_free (mps_context * s, mps_cluster * cluster);
mps_root * mps_cluster_insert_root (mps_context * s, mps_cluster * cluster, long int root_index);
void mps_cluster_remove_root (mps_context * s, mps_cluster * cluster, mps_root * root);
mps_cluster * mps_cluster_join (mps_context * s, mps_cluster * cluster_a, mps_cluster * cluster_b);
 
/* Functions for mps_clusterization */
mps_clusterization * mps_clusterization_empty (mps_context * s);
mps_cluster_item * mps_clusterization_insert_cluster (mps_context * s, mps_clusterization * c, mps_cluster * cluster);
void mps_clusterization_pop_cluster (mps_context * s, mps_clusterization * c, mps_cluster_item * cluster_item);
void mps_clusterization_remove_cluster (mps_context * s, mps_clusterization * c, mps_cluster_item * cluster_item);
void mps_clusterization_free (mps_context * s, mps_clusterization * c);
void mps_clusterization_detach_clusters (mps_context * s, mps_clusterization * c);
void mps_clusterization_reassemble_clusters (mps_context * s, mps_clusterization * c);
 
void mps_cluster_detach (mps_context * s, mps_cluster * cluster);
 
MPS_END_DECLS
 
#endif /* endif MPS_CLUSTER_H_ */