base random stuff fixed

[physik/morpheus.git] / main.c

diff --git a/main.c b/main.c
index a030dd6..49be0ef 100644 (file)
--- a/main.c
+++ b/main.c
@@ -8,6 +8,138 @@
  *
  * refs: 
  *  - J. K. N. Lindner. Habilationsschrift, Universitaet Augsburg.
- *  - Maik Häberlen. Diplomarbeit, Universitaet Augsburg.
+ *  - Maik Haeberlen. Diplomarbeit, Universitaet Augsburg.
  */
 
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+
+#include "defines.h"
+
+/* global variables */
+u32 sum_z_segments;
+int random_fd; /* /dev/urandom file descriptor */
+
+int usage()
+{
+ puts("usage:");
+ puts("-h: help");
+ puts("-a <value> \t slope of nuclear energy loss (default 1)");
+ puts("-c <value> \t nuclear enery loss at depths 0 (default 0)");
+ puts("-x <value> \t # x segments (default 50)");
+ puts("-y <value> \t # y segments (default 50)");
+ puts("-z <value> \t # z segments (default 100)");
+ puts("-s <value> \t # steps to calculate (default 5000");
+ return -23;
+}
+
+int make_amorph(u32 *segment)
+{
+ *segment=*segment|AMORPH
+ return 23;
+}
+
+/* look at segment ... */
+int process_segment(u32 *segment)
+{
+ /* tag it ... testing! */
+ make_amorph(segment);
+ 
+ return 23;
+}
+
+int main(int argc,char **argv) 
+{
+ u32 x_seg,y_seg,z_seg; /* amount of segments */
+ u32 x,y,z; /* segments */
+ int i; /* for counting */
+ int slope_nel,start_nel; /* nuclear energy loss: slope, constant */
+ int steps; /* # steps */
+ void *segments_p;
+
+ /* default values */
+ x_seg=DEFAULT_X_SEG;
+ y_seg=DEFAULT_Y_SEG;
+ z_seg=DEFAULT_Z_SEG;
+ slope_nel=DEFAULT_SLOPE_NEL;
+ start_nel=DEFAULT_START_NEL;
+ steps=DEFAULT_STEPS;
+ 
+ /* parse command args */
+ for(i=1;i<argc;i++)
+ {
+  if(argv[i][0]=='-')
+  {
+   switch(argv[i][1])
+   {
+    case 'h':
+     usage();
+     return 23;
+     break;
+    case 'a':
+     slope_nel=atoi(argv[++i]);
+     break;
+    case 'c':
+     start_nel=atoi(argv[++i]);
+     break;
+    case 'x':
+     x_seg=atoi(argv[++i]);
+     break;
+    case 'y':
+     y_seg=atoi(argv[++i]);
+     break;
+    case 'z':
+     z_seg=atoi(argv[++i]);
+     break;
+   case 's':
+     steps=atoi(argv[++i]);
+     break;
+    default:
+     usage();
+     return -23;
+   }
+  } else usage();
+ }
+
+ /* open random fd */
+ if((random_fd=open("/dev/urandom",O_RDONLY))<0)
+ {
+  puts("cannot open /dev/urandom\n");
+  return -23;
+ }
+
+ /* calculate sum_z_segments one time! */
+ sum_z_segments=0;
+ for(i=1;i<=z_seg;i++) sum_z_segments+=(start_nel+i*slope_nel);
+ printfd("debug: sum z segments -> %d\n",sum_z_segments);
+
+
+ /* testing ... */
+
+ /* allocate segments */
+ if((segments_p=malloc(x_seg*y_seg*z_seg*sizeof(u32)))==NULL)
+ {
+  puts("failed allocating memory for segments\n");
+  return -23;
+ }
+ memset(segments_p,0,x_seg*y_seg*z_seg*sizeof(u32));
+
+ /* main routine */
+ for(i=0;i<steps;i++)
+ {
+  x=rand_get(x_seg);
+  y=rand_get(y_seg);
+  z=rand_get_lgp(slope_nel,start_nel);
+
+  /* todo */
+  distrib_c_conc(segments_p);
+  process_segment((u32)(segments_p+x+y*(x_seg-1)+z*(x_seg-1)*(y_seg-1)));
+  display(segments_p);
+  /* */
+
+ }
+ return 23;
+}