Add files via upload
This commit is contained in:
Nils Berglund
GitHub
113
percolation.c
113
percolation.c
@@ -39,51 +39,56 @@
|
||||
#include <omp.h>
|
||||
#include <time.h>
|
||||
|
||||
#define MOVIE 1 /* set to 1 to generate movie */
|
||||
#define MOVIE 0 /* set to 1 to generate movie */
|
||||
|
||||
/* General geometrical parameters */
|
||||
|
||||
// #define WINWIDTH 1920 /* window width */
|
||||
// #define WINHEIGHT 1000 /* window height */
|
||||
#define WINWIDTH 1920 /* window width */
|
||||
#define WINHEIGHT 1000 /* window height */
|
||||
// #define NX 1920 /* number of grid points on x axis */
|
||||
// #define NY 992 /* number of grid points on y axis */
|
||||
//
|
||||
// #define XMIN -2.0
|
||||
// #define XMAX 2.0 /* x interval */
|
||||
// #define YMIN -1.041666667
|
||||
// #define YMAX 1.041666667 /* y interval for 9/16 aspect ratio */
|
||||
|
||||
#define HIGHRES 0 /* set to 1 if resolution of grid is double that of displayed image */
|
||||
|
||||
#define WINWIDTH 1280 /* window width */
|
||||
#define WINHEIGHT 720 /* window height */
|
||||
|
||||
#define NX 1280 /* number of grid points on x axis */
|
||||
#define NY 720 /* number of grid points on y axis */
|
||||
|
||||
#define XMIN -2.0
|
||||
#define XMAX 2.0 /* x interval */
|
||||
#define YMIN -1.125
|
||||
#define YMAX 1.125 /* y interval for 9/16 aspect ratio */
|
||||
#define YMIN -1.041666667
|
||||
#define YMAX 1.041666667 /* y interval for 9/16 aspect ratio */
|
||||
|
||||
#define HIGHRES 0 /* set to 1 if resolution of grid is double that of displayed image */
|
||||
|
||||
// #define WINWIDTH 1280 /* window width */
|
||||
// #define WINHEIGHT 720 /* window height */
|
||||
|
||||
#define NX 256 /* number of grid points on x axis */
|
||||
#define NY 256 /* number of grid points on y axis */
|
||||
#define NZ 256 /* number of grid points on z axis, for 3D percolation */
|
||||
|
||||
// #define XMIN -2.0
|
||||
// #define XMAX 2.0 /* x interval */
|
||||
// #define YMIN -1.125
|
||||
// #define YMAX 1.125 /* y interval for 9/16 aspect ratio */
|
||||
|
||||
/* Boundary conditions, see list in global_pdes.c */
|
||||
|
||||
#define LATTICE 2
|
||||
#define LATTICE 100
|
||||
|
||||
#define FLOOD_LEFT_BOUNDARY 0 /* set to 1 to flood cells on left boundary */
|
||||
#define FIND_ALL_CLUSTERS 1 /* set to 1 to find all open clusters */
|
||||
#define FLOOD_LEFT_BOUNDARY 0 /* set to 1 to flood cells on left boundary */
|
||||
#define FLOOD_BOTTOM_BOUNDARY 0 /* set to 1 to flood cells on bottom boundary */
|
||||
#define FIND_ALL_CLUSTERS 1 /* set to 1 to find all open clusters */
|
||||
#define PLOT_ONLY_FLOODED_CELLS 0 /* set to 1 to plot only flooded cells */
|
||||
|
||||
#define PLOT_CLUSTER_SIZE 0 /* set to 1 to add a plot for the size of the percolation cluster */
|
||||
#define PLOT_CLUSTER_NUMBER 0 /* set to 1 to add a graph of the number of clusters */
|
||||
#define PLOT_CLUSTER_HISTOGRAM 1 /* set to 1 to add a histogram of the number of clusters */
|
||||
#define PRINT_LARGEST_CLUSTER_SIZE 1 /* set to 1 to print size of largest cluster */
|
||||
#define PRINT_LARGEST_CLUSTER_SIZE 0 /* set to 1 to print size of largest cluster */
|
||||
#define HISTO_X_LOG_SCALE 1 /* set to 1 to use a log scale on cluster sizes */
|
||||
|
||||
#define P_SCHEDULE_POWER 4 /* power controlling slowing down near pc - 2 is standard, higher values mean slower passage */
|
||||
|
||||
#define MAX_CLUSTER_NUMBER 6 /* vertical scale of the cluster number plot */
|
||||
#define HISTO_BINS 30 /* number of bins in histogram */
|
||||
|
||||
#define NSTEPS 100 /* number of frames of movie */
|
||||
// #define NSTEPS 700 /* number of frames of movie */
|
||||
// #define NSTEPS 830 /* number of frames of movie */
|
||||
// #define NSTEPS 760 /* number of frames of movie */
|
||||
|
||||
#define PAUSE 200 /* number of frames after which to pause */
|
||||
#define PSLEEP 2 /* sleep time during pause */
|
||||
@@ -95,11 +100,13 @@
|
||||
|
||||
/* Color schemes */
|
||||
|
||||
#define COLOR_PALETTE 15 /* Color palette, see list in global_pdes.c */
|
||||
#define COLOR_PALETTE 10 /* Color palette, see list in global_pdes.c */
|
||||
|
||||
#define BLACK 1 /* background */
|
||||
|
||||
#define COLOR_CLUSTERS_BY_SIZE 1 /* set to 1 to link cluster color to their size */
|
||||
#define COLOR_CELLS_BY_XCOORD 0 /* set to 1 to color cells according to their x-coordinate */
|
||||
#define COLOR_CELLS_BY_ZCOORD 0 /* set to 1 to color cells according to their z-coordinate */
|
||||
|
||||
#define SCALE 0 /* set to 1 to adjust color scheme to variance of field */
|
||||
#define SLOPE 1.0 /* sensitivity of color on wave amplitude */
|
||||
@@ -107,10 +114,11 @@
|
||||
|
||||
#define HUE_CLOSED 350.0 /* color hue of closed cells */
|
||||
#define HUE_OPEN 200.0 /* color hue of open (dry) cells */
|
||||
#define HUE_FLOODED 45.0 /* color hue of open flooded cells */
|
||||
#define HUE_GRAPH 250.0 /* color hue in graph of cluster size */
|
||||
#define HUE_FLOODED 300.0 /* color hue of open flooded cells */
|
||||
#define HUE_GRAPH_SIZE 250.0 /* color hue in graph of cluster size */
|
||||
#define HUE_GRAPH_CLUSTERS 150.0 /* color hue in graph of cluster size */
|
||||
|
||||
#define CLUSTER_HUEMIN 60.0 /* minimal color hue of clusters */
|
||||
#define CLUSTER_HUEMIN 10.0 /* minimal color hue of clusters */
|
||||
#define CLUSTER_HUEMAX 300.0 /* maximal color hue of clusters */
|
||||
#define N_CLUSTER_COLORS 20 /* number of different colors of clusters */
|
||||
|
||||
@@ -121,6 +129,24 @@
|
||||
#define HUEMEAN 180.0 /* mean value of hue for color scheme C_HUE */
|
||||
#define HUEAMP -180.0 /* amplitude of variation of hue for color scheme C_HUE */
|
||||
|
||||
/* parameters of 3D representation */
|
||||
double u_3d[2] = {0.75, -0.45}; /* projections of basis vectors for REP_AXO_3D representation */
|
||||
double v_3d[2] = {-0.75, -0.45};
|
||||
double w_3d[2] = {0.0, 0.015};
|
||||
double light[3] = {0.816496581, 0.33333333, 0.4714045}; /* vector of "light" direction for P_3D_ANGLE color scheme */
|
||||
double observer[3] = {8.0, 11.0, 10.0}; /* location of observer for REP_PROJ_3D representation */
|
||||
int reset_view = 0; /* switch to reset 3D view parameters (for option ROTATE_VIEW) */
|
||||
|
||||
#define REPRESENTATION_3D 1 /* choice of 3D representation */
|
||||
#define Z_SCALING_FACTOR 1.0 /* overall scaling factor of z axis for REP_PROJ_3D representation */
|
||||
#define XY_SCALING_FACTOR 2.4 /* overall scaling factor for on-screen (x,y) coordinates after projection */
|
||||
#define ZMAX_FACTOR 1.0 /* max value of z coordinate for REP_PROJ_3D representation */
|
||||
#define XSHIFT_3D -0.4 /* overall x shift for REP_PROJ_3D representation */
|
||||
#define YSHIFT_3D 0.0 /* overall y shift for REP_PROJ_3D representation */
|
||||
|
||||
#define ROTATE_VIEW 0 /* set to 1 to rotate viewpoint */
|
||||
#define ROTATE_ANGLE 360.0 /* total angle of viewpoint rotation */
|
||||
|
||||
/* debugging options */
|
||||
#define VERBOSE 0 /* set to 1 to print more messages in shell */
|
||||
#define DEBUG 0 /* set to 1 for some debugging features */
|
||||
@@ -130,24 +156,25 @@
|
||||
|
||||
#define ADD_PLOT ((PLOT_CLUSTER_SIZE)||(PLOT_CLUSTER_NUMBER)||(PLOT_CLUSTER_HISTOGRAM))
|
||||
#define FIND_CLUSTER_SIZES ((COLOR_CLUSTERS_BY_SIZE)||(PLOT_CLUSTER_HISTOGRAM))
|
||||
#define PLOT_3D (LATTICE == BC_CUBIC_DIRICHLET)
|
||||
|
||||
#include "global_perc.c" /* constants and global variables */
|
||||
#include "sub_perco_3d.c" /* support for 3D graphics */
|
||||
#include "sub_perco.c"
|
||||
|
||||
|
||||
|
||||
void animation(int size)
|
||||
{
|
||||
int i, j, k, s, nx, ny, nmaxcells, maxsize, nopen, nflooded, nstack, nclusters, maxclustersize = 0, maxclusterlabel;
|
||||
int i, j, k, s, nx, ny, nz, nmaxcells, maxsize, nopen, nflooded, nstack, nclusters, maxclustersize = 0, maxclusterlabel;
|
||||
int *plot_cluster_number, *cluster_sizes;
|
||||
int ncells;
|
||||
double p, *plot_cluster_size;
|
||||
t_perco *cell;
|
||||
t_perco **pstack;
|
||||
|
||||
compute_nxny(size, &nx, &ny);
|
||||
compute_nxnynz(size, &nx, &ny, &nz);
|
||||
|
||||
nmaxcells = cell_number(NX, NY);
|
||||
nmaxcells = cell_number(NX, NY, NZ);
|
||||
|
||||
cell = (t_perco *)malloc(nmaxcells*sizeof(t_perco));
|
||||
if (PLOT_CLUSTER_SIZE) plot_cluster_size = (double *)malloc(NSTEPS*sizeof(double));
|
||||
@@ -155,8 +182,9 @@ void animation(int size)
|
||||
// if (FIND_CLUSTER_SIZES)
|
||||
cluster_sizes = (int *)malloc(2*nmaxcells*sizeof(int));
|
||||
|
||||
ncells = init_cell_lattice(cell, nx, ny);
|
||||
printf("nx = %i, ny = %i, ncells = %i, maxcells = %i\n", nx, ny, ncells, nmaxcells);
|
||||
ncells = init_cell_lattice(cell, nx, ny, nz);
|
||||
|
||||
printf("nx = %i, ny = %i, nz = %i, ncells = %i, maxcells = %i\n", nx, ny, nz, ncells, nmaxcells);
|
||||
|
||||
pstack = (t_perco* *)malloc(ncells*sizeof(struct t_perco *));
|
||||
|
||||
@@ -169,14 +197,21 @@ void animation(int size)
|
||||
p = p_schedule(i);
|
||||
printf("\ni = %i, p = %.4lg\n", i, p);
|
||||
|
||||
if (ROTATE_VIEW)
|
||||
{
|
||||
viewpoint_schedule(i);
|
||||
reset_view = 1;
|
||||
}
|
||||
|
||||
init_cell_state(cell, p, ncells, (i == 0));
|
||||
|
||||
if (FLOOD_LEFT_BOUNDARY) nstack = init_flooded_cells(cell, ncells, nx, ny, pstack);
|
||||
if (FLOOD_LEFT_BOUNDARY) nstack = init_flooded_cells(cell, ncells, nx, ny, nz, 0, pstack);
|
||||
if (FLOOD_BOTTOM_BOUNDARY) nstack = init_flooded_cells(cell, ncells, nx, ny, nz, 1, pstack);
|
||||
nopen = count_open_cells(cell, ncells);
|
||||
|
||||
printf("Flooded cells, %i open cells, nstack = %i\n", nopen, nstack);
|
||||
|
||||
if (FLOOD_LEFT_BOUNDARY)
|
||||
if ((FLOOD_LEFT_BOUNDARY)||(FLOOD_BOTTOM_BOUNDARY))
|
||||
{
|
||||
nflooded = find_percolation_cluster(cell, ncells, pstack, nstack);
|
||||
printf("Found percolation cluster with %i flooded cells\n", nflooded);
|
||||
@@ -196,7 +231,7 @@ void animation(int size)
|
||||
|
||||
// print_cluster_sizes(cell, ncells, cluster_sizes);
|
||||
|
||||
draw_configuration(cell, cluster_sizes, ncells, nx, ny, size, ncells);
|
||||
draw_configuration(cell, cluster_sizes, ncells, nx, ny, nz, size, ncells);
|
||||
print_p(p);
|
||||
if (PRINT_LARGEST_CLUSTER_SIZE) print_largest_cluster_size(maxclustersize);
|
||||
|
||||
@@ -265,8 +300,8 @@ void display(void)
|
||||
// animation(64);
|
||||
// animation(32);
|
||||
// animation(16);
|
||||
// animation(8);
|
||||
animation(4);
|
||||
animation(8);
|
||||
// animation(4);
|
||||
// animation(2);
|
||||
// animation(1);
|
||||
|
||||
|
||||
Reference in New Issue
Block a user