| tinitrnd.c - werner - cellular automata simulation of wind-driven sand transport | |
| git clone git://src.adamsgaard.dk/werner | |
| Log | |
| Files | |
| Refs | |
| LICENSE | |
| --- | |
| tinitrnd.c (604B) | |
| --- | |
| 1 #include <stdio.h> | |
| 2 #include <stdlib.h> | |
| 3 | |
| 4 // see https://www.gnu.org/software/gsl/manual/html_node/Matrices.html | |
| 5 #include <gsl/gsl_matrix.h> | |
| 6 | |
| 7 #include "wernerparams.h" | |
| 8 #include "werner.h" | |
| 9 | |
| 10 int main(int argc, char** argv) | |
| 11 { | |
| 12 // Allocate matrix Z: number of sand slabs | |
| 13 gsl_matrix* Z = gsl_matrix_alloc(rows, cols); | |
| 14 | |
| 15 // Initialize with random values | |
| 16 init_rnd_matrix(Z, 1.0, 10.0); | |
| 17 | |
| 18 // Add 100 sand slabs to each cell | |
| 19 //gsl_matrix_add_constant(Z, 100.0); | |
| 20 | |
| 21 // Write matrix to stdout | |
| 22 gsl_matrix_fprintf(stdout, Z, "%f"); | |
| 23 | |
| 24 // End program | |
| 25 gsl_matrix_free(Z); | |
| 26 return 0; | |
| 27 } |