MPI for SWW data

JiaweiZhuang · Apr 30, 2017 · 1541f7e · 1541f7e
1 parent bf22487
commit 1541f7e
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/Parallel_Algorithm/MPI/Kmean_mpi.c b/Parallel_Algorithm/MPI/Kmean_mpi.c
@@ -8,7 +8,8 @@
 #include "../shared/math_util.h"
 
 /* This is the name of the data file we will read. */
-#define FILE_NAME "../test_data/Blobs_smp20000_fea30_cls8.nc"
+//#define FILE_NAME "../test_data/Blobs_smp20000_fea30_cls8.nc"
+#define FILE_NAME "../../Data_Analysis/data/SSWdata.nc"
 #define TOL 0.0001
 #define MAX_ITER 100 
 
@@ -209,9 +210,11 @@ int main() {
  reduction(+:dist_sum_new)
  for (i = 0; i < N_samples; i++) {
  k_best = 0;//assume cluster no.0 is the nearest
- dist_min = distance(N_features, X[i], old_cluster_centers[k_best]); 
+ //dist_min = distance(N_features, X[i], old_cluster_centers[k_best]); 
+ dist_min = correlation(N_features, X[i], old_cluster_centers[k_best]);
  for (k = 1; k < N_clusters; k++){
- dist = distance(N_features, X[i], old_cluster_centers[k]); 
+ //dist = distance(N_features, X[i], old_cluster_centers[k]); 
+ dist = correlation(N_features, X[i], old_cluster_centers[k]);
  if (dist < dist_min){
  dist_min = dist;
  k_best = k;