From 2bb0740b68fdb62d45adc00204b3990ca42ade77 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Mon, 22 Aug 2016 10:11:14 -0400 Subject: started repo again without all the data files gunking the works --- src/corr_test.c | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 src/corr_test.c (limited to 'src/corr_test.c') diff --git a/src/corr_test.c b/src/corr_test.c new file mode 100644 index 0000000..2c93b8e --- /dev/null +++ b/src/corr_test.c @@ -0,0 +1,30 @@ + +#include "fracture.h" + +int main() { + cholmod_common c; + CHOL_F(start)(&c); + + unsigned int width = 64; + unsigned int n = pow(width / 2 + 1, 2) + pow((width + 1) / 2, 2); + + fnet *network = ini_square_network(width, true, false, &c); + finst *instance = create_instance(network, 1e-14, true, true, &c); + double *fuse_thres = gen_fuse_thres(network->num_edges, network->edge_coords, + 0.001, beta_scaling_flat); + fracture_network(instance, fuse_thres, &c, 1e-10); + + double *corr = get_corr(instance, NULL, &c); + + for (int i = 0; i < 2 * width; i++) { + printf("%f ", corr[i]); + } + printf("\n"); + + free_instance(instance, &c); + free_fnet(network, &c); + + CHOL_F(finish)(&c); + + return 0; +} -- cgit v1.2.3-70-g09d2