Add files via upload

schrodinger.c

@@ -175,9 +175,22 @@
 #define MAZE_MAX_NGBH 4     /* max number of neighbours of maze cell */
 #define RAND_SHIFT 24        /* seed of random number generator */
 #define MAZE_XSHIFT 0.0     /* horizontal shift of maze */
+#define MAZE_WIDTH 0.02     /* half width of maze walls */
 #define ADD_POTENTIAL 0
 #define POT_MAZE 7
 #define POTENTIAL 0
+#define VARIABLE_IOR 1      /* set to 1 for a variable index of refraction */
+#define IOR 7               /* choice of index of refraction, see list in global_pdes.c */
+#define IOR_TOTAL_TURNS 1.5 /* total angle of rotation for IOR_PERIODIC_WELLS_ROTATING */
+#define MANDEL_IOR_SCALE -0.05   /* parameter controlling dependence of IoR on Mandelbrot escape speed */
+#define COURANT 0.04       /* Courant number */
+#define COURANTB 0.0       /* Courant number in medium B */
+#define INITIAL_AMP 0.5            /* amplitude of initial condition */
+#define INITIAL_VARIANCE 0.0003    /* variance of initial condition */
+#define INITIAL_WAVELENGTH  0.015  /* wavelength of initial condition */
+#define TWOSPEEDS 0          /* set to 1 to replace hardcore boundary by medium with different speed */
+#define WAVE_PACKET_SOURCE_TYPE 1       /* type of wave packet sources */
+#define N_WAVE_PACKETS 15               /* number of wave packets */
 /* end of constants only used by sub_wave and sub_maze */