Added lib 'summary_stat.c'

stat_new/summary_stat.c

@@ -0,0 +1,70 @@
+/* Library for summary statistic
+ * Usage:
+ *            summary_statistic (filename, number_of_step, number_of_molecules, 
+ *                                        type_of_aglomerate, summary_statistic)
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+
+int summary_statistic (char *filename, int step, int num_mol, const int *type_agl, const int *stat_all)
+/* filename         - name of output file
+ * step             - number of steps
+ * num_mol          - number of molecules
+ * type_agl         - massive of numbers of aglomerate types
+ * stat_all         - massive of summary statistics
+ */
+{
+  float conc, p, pn, type[2], x, y;
+  int i, index;
+  FILE *f_out;
+/* conc             - concentrate of aglomerates
+ * p                - probability of aglomerates
+ * pn               - weight probability of aglomerates
+ * f_out            - output file
+ */
+  
+  index = 0;
+  for (i=0; i<num_mol; i++)
+    if (stat_all[i] != 0)
+      index = i;
+  
+//   head
+  f_out = fopen (filename, "a");
+  fprintf (f_out, "SUMMARY STATISTIC:\n");
+  fprintf (f_out, "|   n   |   N   |    C    |    p    |    pn    |\n------------------------------------------------\n");
+  
+  for (i=0; i<index; i++)
+  {
+//     calculating concentrates
+    x = stat_all[i];
+    y = step;
+    conc = x / y;
+    
+//     calculating probabilityes
+    x = (i + 1) * stat_all[i];
+    y = step * num_mol;
+    p = x / y;
+    pn = (i + 1) * p;
+    
+    fprintf (f_out, " %7i %7i %9.2f %9.5f %9.5f\n", i+1, stat_all[i], conc, p, pn);
+  }
+  
+//   types of aglomerates
+  x = type_agl[0] + type_agl[1];
+  type[0] = type_agl[0];
+  type[1] = type_agl[1];
+  fprintf (f_out, "------------------------------------------------\n");
+  fprintf (f_out, "LINEAR=%7.5f\nCYCLE=%7.5f\n", type[0]/x, type[1]/x);
+  
+  fclose (f_out);
+  
+  return 0;
+}
+
+
+int main (int argc, char *argv[])
+{
+  return 0;
+}