int main(void) { field f; init_empty_field(&f); f.model.cfl = 0.05; f.model.m = 3; // only one conservative variable f.model.NumFlux = TransNumFlux2dwav; f.model.BoundaryFlux = TransBoundaryFlux2dwav; f.model.InitData = TransInitData2dwav; f.model.ImposedData = TransImposedData2dwav; f.varindex = GenericVarindex; f.interp.interp_param[0] = f.model.m; // _M f.interp.interp_param[1] = 3; // x direction degree f.interp.interp_param[2] = 3; // y direction degree f.interp.interp_param[3] = 0; // z direction degree f.interp.interp_param[4] = 4; // x direction refinement f.interp.interp_param[5] = 4; // y direction refinement f.interp.interp_param[6] = 1; // z direction refinement // Read the gmsh file ReadMacroMesh(&(f.macromesh), "disquetrou.msh"); //ReadMacroMesh(&(f.macromesh), "geo/cube.msh"); // Try to detect a 2d mesh Detect2DMacroMesh(&(f.macromesh)); assert(f.macromesh.is2d); //PrintMacroMesh(&(f.macromesh)); // Mesh preparation BuildConnectivity(&(f.macromesh)); // AffineMapMacroMesh(&(f.macromesh)); // Prepare the initial fields Initfield(&f); // prudence... CheckMacroMesh(&(f.macromesh), f.interp.interp_param + 1); printf("cfl param =%f\n", f.hmin); // Apply the DG scheme time integration by RK2 scheme up to final // time tmax. real tmax = 0.5; real dt = 0.; f.vmax = 0.1; if(dt <= 0.0) dt = set_dt(&f); RK2(&f, tmax, dt); // Save the results and the error Plotfield(0, false, &f, NULL, "dgvisu.msh"); Plotfield(0, true, &f, "Error", "dgerror.msh"); real dd = L2error(&f); printf("erreur L2=%f\n", dd); return 0; };
void physics::simstep(float t) { std::vector<float> args,properties; args.resize(9); for(_i=0;_i<4;++_i) for(_j=0;_j<4;++_j) for(_k=0;_k<4;++_k) { for(size_t i=0;i<3;++i) args[i]=positions[16*_i+4*_j+_k][i]; for(size_t i=0;i<3;++i) args[i+3]=velocities[16*_i+4*_j+_k][i]; for(size_t i=0;i<3;++i) args[i+6]=accelerations[16*_i+4*_j+_k][i]; properties=RK2(t,args); for(size_t i=0;i<3;++i) posBuff[16*_i+4*_j+_k][i]=properties[i]; for(size_t i=0;i<3;++i) velBuff[16*_i+4*_j+_k][i]=properties[i+3]; for(size_t i=0;i<3;++i) accelBuff[16*_i+4*_j+_k][i]=properties[i+6]; } flush_buffs(); }
int TestfieldRK2_2D() { bool test = true; field f; init_empty_field(&f); f.model.cfl = 0.05; f.model.m = 1; f.model.NumFlux = TransNumFlux2d; f.model.BoundaryFlux = TransBoundaryFlux2d; f.model.InitData = TransInitData2d; f.model.ImposedData = TransImposedData2d; f.varindex = GenericVarindex; f.interp.interp_param[0] = 1; // _M f.interp.interp_param[1] = 2; // x direction degree f.interp.interp_param[2] = 2; // y direction degree f.interp.interp_param[3] = 0; // z direction degree f.interp.interp_param[4] = 1; // x direction refinement f.interp.interp_param[5] = 1; // y direction refinement f.interp.interp_param[6] = 1; // z direction refinement ReadMacroMesh(&f.macromesh, "../test/testdisque2d.msh"); Detect2DMacroMesh(&f.macromesh); assert(f.macromesh.is2d); BuildConnectivity(&f.macromesh); Initfield(&f); CheckMacroMesh(&f.macromesh, f.interp.interp_param + 1); printf("cfl param =%f\n",f.hmin); real tmax = 0.1; f.vmax=1; real dt = 0; RK2(&f, tmax, dt); //Plotfield(0, false, &f, NULL, "dgvisu.msh"); //Plotfield(0, true, &f, "error", "dgerror.msh"); real dd = L2error(&f); printf("erreur L2=%f\n", dd); test = test && (dd < 0.01); return test; }
int main(int argc, char **argv) { int i; float *x; float *y; float *t; float *espacio; float tmin=0; float tmax=1; float h=0.001; FILE *in; int N=(tmax-tmin)/h; espacio=malloc(sizeof(float)*3); x=malloc(sizeof(float)*N); y=malloc(sizeof(float)*N); t=malloc(sizeof(float)*N); float x0=atof(argv[1]); float y0=atof(argv[2]); char filename[100]; snprintf(filename, sizeof(char)*100,"presa%i.txt",(int) x0); t[0]=tmin; x[0]=x0; y[0]=y0; in = fopen(filename,"w"); if(!in) { printf("problems opening the file %s\n", filename); exit(1); } for(i=1;i<N;i++) { espacio=RK2(t[i-1],x[i-1],y[i-1],h); t[i]=espacio[0]; x[i]=espacio[1]; y[i]=espacio[2]; fprintf(in,"%f \t %f \t %f \t \n",t[i],x[i],y[i]); } return 0; }
int TestMaxwell2D() { bool test = true; field f; init_empty_field(&f); f.model.cfl = 0.05; f.model.m = 7; // num of conservative variables f.model.NumFlux = Maxwell2DNumFlux_uncentered; //f.model.NumFlux = Maxwell2DNumFlux_centered; f.model.BoundaryFlux = Maxwell2DBoundaryFlux_uncentered; f.model.InitData = Maxwell2DInitData; f.model.ImposedData = Maxwell2DImposedData; f.varindex = GenericVarindex; f.model.Source = Maxwell2DSource; f.interp.interp_param[0] = f.model.m; f.interp.interp_param[1] = 3; // x direction degree f.interp.interp_param[2] = 3; // y direction degree f.interp.interp_param[3] = 0; // z direction degree f.interp.interp_param[4] = 4; // x direction refinement f.interp.interp_param[5] = 4; // y direction refinement f.interp.interp_param[6] = 1; // z direction refinement ReadMacroMesh(&(f.macromesh), "../test/testcube.msh"); Detect2DMacroMesh(&(f.macromesh)); assert(f.macromesh.is2d); BuildConnectivity(&(f.macromesh)); char buf[1000]; sprintf(buf, "-D _M=%d", f.model.m); strcat(cl_buildoptions, buf); set_source_CL(&f, "Maxwell2DSource"); sprintf(numflux_cl_name, "%s", "Maxwell2DNumFlux_uncentered"); sprintf(buf," -D NUMFLUX="); strcat(buf, numflux_cl_name); strcat(cl_buildoptions, buf); sprintf(buf, " -D BOUNDARYFLUX=%s", "Maxwell2DBoundaryFlux_uncentered"); strcat(cl_buildoptions, buf); Initfield(&f); CheckMacroMesh(&(f.macromesh), f.interp.interp_param + 1); real tmax = 0.1; f.vmax = 1; real dt = set_dt(&f); #if 0 // C version RK2(&f, tmax, dt); #else // OpenCL version CopyfieldtoGPU(&f); RK2_CL(&f, tmax, dt, 0, 0, 0); CopyfieldtoCPU(&f); printf("\nOpenCL Kernel time:\n"); show_cl_timing(&f); printf("\n"); #endif // Save the results and the error /* Plotfield(0, false, &f, NULL, "dgvisu.msh"); */ /* Plotfield(0, true, &f, "error", "dgerror.msh"); */ real dd = L2error(&f); real tolerance = 1.1e-2; test = test && (dd < tolerance); printf("L2 error: %f\n", dd); return test; }
int TestMHD(int argc, char *argv[]) { real cfl = 0.2; real tmax = 0.1; bool writemsh = false; real vmax = 6.0; bool usegpu = false; real dt = 0.0; for (;;) { int cc = getopt(argc, argv, "c:t:w:D:P:g:s:"); if (cc == -1) break; switch (cc) { case 0: break; case 'c': cfl = atof(optarg); break; case 'g': usegpu = atoi(optarg); break; case 't': tmax = atof(optarg); break; case 'w': writemsh = true; break; case 'D': ndevice_cl= atoi(optarg); break; case 'P': nplatform_cl = atoi(optarg); break; default: printf("Error: invalid option.\n"); printf("Usage:\n"); printf("./testmanyv -c <cfl> -d <deg> -n <nraf> -t <tmax> -C\n -P <cl platform number> -D <cl device number> FIXME"); exit(1); } } bool test = true; field f; init_empty_field(&f); f.varindex = GenericVarindex; f.model.m = 9; f.model.cfl = cfl; strcpy(f.model.name,"MHD"); f.model.NumFlux=MHDNumFluxP2; f.model.BoundaryFlux=MHDBoundaryFlux; f.model.InitData=MHDInitData; f.model.ImposedData=MHDImposedData; char buf[1000]; sprintf(buf, "-D _M=%d", f.model.m); strcat(cl_buildoptions, buf); sprintf(numflux_cl_name, "%s", "MHDNumFluxP2"); sprintf(buf," -D NUMFLUX="); strcat(buf, numflux_cl_name); strcat(cl_buildoptions, buf); sprintf(buf, " -D BOUNDARYFLUX=%s", "MHDBoundaryFlux"); strcat(cl_buildoptions, buf); // Set the global parameters for the Vlasov equation f.interp.interp_param[0] = f.model.m; // _M f.interp.interp_param[1] = 1; // x direction degree f.interp.interp_param[2] = 1; // y direction degree f.interp.interp_param[3] = 0; // z direction degree f.interp.interp_param[4] = 10; // x direction refinement f.interp.interp_param[5] = 10; // y direction refinement f.interp.interp_param[6] = 1; // z direction refinement //set_vlasov_params(&(f.model)); // Read the gmsh file //ReadMacroMesh(&(f.macromesh), "test/testcartesiangrid2d2.msh"); ReadMacroMesh(&(f.macromesh), "test/testOTgrid.msh"); //ReadMacroMesh(&(f.macromesh), "test/testcube.msh"); // Try to detect a 2d mesh Detect2DMacroMesh(&(f.macromesh)); bool is2d=f.macromesh.is2d; assert(is2d); f.macromesh.period[0]=6.2831853; f.macromesh.period[1]=6.2831853; // Mesh preparation BuildConnectivity(&(f.macromesh)); // Prepare the initial fields Initfield(&f); // Prudence... CheckMacroMesh(&(f.macromesh), f.interp.interp_param + 1); Plotfield(0, (1==0), &f, "Rho", "dginit.msh"); f.vmax=vmax; real executiontime; if(usegpu) { printf("Using OpenCL:\n"); //executiontime = seconds(); //assert(1==2); RK2(&f, tmax, dt); //executiontime = seconds() - executiontime; } else { printf("Using C:\n"); //executiontime = seconds(); RK2(&f, tmax, dt); //executiontime = seconds() - executiontime; } Plotfield(0,false,&f, "Rho", "dgvisu.msh"); Gnuplot(&f,0,0.0,"data1D.dat"); printf("tmax: %f, cfl: %f\n", tmax, f.model.cfl); printf("deltax:\n"); printf("%f\n", f.hmin); printf("deltat:\n"); printf("%f\n", dt); printf("DOF:\n"); printf("%d\n", f.wsize); printf("executiontime (s):\n"); printf("%f\n", executiontime); printf("time per RK2 (s):\n"); printf("%f\n", executiontime / (real)f.itermax); return test; }
int TestCoil2D(void) { bool test = true; field f; init_empty_field(&f); init_empty_field(&f); f.model.cfl = 0.2; f.model.m = 7; // num of conservative variables f.model.NumFlux = Maxwell2DCleanNumFlux_upwind; f.model.BoundaryFlux = Coil2DBoundaryFlux; f.model.InitData = Coil2DInitData; f.model.ImposedData = Coil2DImposedData; f.varindex = GenericVarindex; f.interp.interp_param[0] = f.model.m; f.interp.interp_param[1] = 2; // x direction degree f.interp.interp_param[2] = 2; // y direction degree f.interp.interp_param[3] = 0; // z direction degree f.interp.interp_param[4] = 4; // x direction refinement f.interp.interp_param[5] = 4; // y direction refinement f.interp.interp_param[6] = 1; // z direction refinement // Read the gmsh file ReadMacroMesh(&f.macromesh, "../test/testmacromesh.msh"); // Try to detect a 2d mesh Detect2DMacroMesh(&f.macromesh); assert(f.macromesh.is2d); // Mesh preparation BuildConnectivity(&(f.macromesh)); //AffineMapMacroMesh(&(f.macromesh)); // Prepare the initial fields Initfield(&f); f.model.Source = Coil2DSource; f.pre_dtfield = coil_pre_dtfield; //f.dt = 1e-3; // Prudence... CheckMacroMesh(&(f.macromesh), f.interp.interp_param + 1); printf("cfl param =%f\n", f.hmin); // time derivative //dtfield(&f); //Displayfield(&f); // init the particles on a circle PIC pic; InitPIC(&pic, 100); CreateCoil2DParticles(&pic, &f.macromesh); PlotParticles(&pic, &f.macromesh); f.pic = &pic; // time evolution real tmax = 0.1; f.vmax = 1; real dt = set_dt(&f); RK2(&f, tmax, dt); // Save the results and the error //Plotfield(2, false, &f, NULL, "dgvisu.msh"); //Plotfield(2, true, &f, "error", "dgerror.msh"); real dd = L2error(&f); real tolerance = 0.3; test = test && (dd < tolerance); printf("L2 error: %f\n", dd); return test; }
int TestPeriodic(void) { bool test=true; field f; init_empty_field(&f); f.model.m=_INDEX_MAX; // num of conservative variables f.vmax = _VMAX; // maximal wave speed f.model.NumFlux=VlasovP_Lagrangian_NumFlux; f.model.Source = NULL; f.model.BoundaryFlux = TestPeriodic_BoundaryFlux; f.model.InitData = TestPeriodic_InitData; f.model.ImposedData = TestPeriodic_ImposedData; f.varindex=GenericVarindex; f.pre_dtfield=NULL; f.post_dtfield=NULL; f.update_after_rk=NULL; f.model.cfl=0.05; f.interp.interp_param[0]=f.model.m; // _M f.interp.interp_param[1]=3; // x direction degree f.interp.interp_param[2]=0; // y direction degree f.interp.interp_param[3]=0; // z direction degree f.interp.interp_param[4]=10; // x direction refinement f.interp.interp_param[5]=1; // y direction refinement f.interp.interp_param[6]=1; // z direction refinement // read the gmsh file ReadMacroMesh(&(f.macromesh), "test/testcube.msh"); // try to detect a 2d mesh Detect1DMacroMesh(&(f.macromesh)); assert(f.macromesh.is1d); // mesh preparation f.macromesh.period[0]=1; BuildConnectivity(&(f.macromesh)); PrintMacroMesh(&(f.macromesh)); //assert(1==2); //AffineMapMacroMesh(&(f.macromesh)); // prepare the initial fields Initfield(&f); f.nb_diags = 0; // prudence... CheckMacroMesh(&(f.macromesh),f.interp.interp_param+1); printf("cfl param =%f\n",f.hmin); // time derivative //dtField(&f); //DisplayField(&f); //assert(1==2); // apply the DG scheme // time integration by RK2 scheme // up to final time = 1. //RK2(&f,0.5,0.1); f.vmax=_VMAX; real dt = set_dt(&f); RK2(&f,0.5, dt); // save the results and the error Plotfield(0,(1==0),&f,"sol","dgvisu.msh"); Plotfield(0,(1==1),&f,"error","dgerror.msh"); real dd=L2error(&f); real dd_Kinetic=L2_Kinetic_error(&f); printf("erreur kinetic L2=%lf\n",dd_Kinetic); printf("erreur L2=%lf\n",dd); test= test && (dd<3e-3); //SolvePoisson(&f); return test; }
int Test_TransportVP() { bool test = true; field f; init_empty_field(&f); int vec=1; f.model.m=_INDEX_MAX; // num of conservative variables f(vi) for // each vi, phi, E, rho, u, p, e (ou T) f.model.NumFlux=VlasovP_Lagrangian_NumFlux; //f.model.Source = NULL; f.model.InitData = Test_TransportVP_InitData; f.model.ImposedData = Test_TransportVP_ImposedData; f.model.BoundaryFlux = Test_TransportVP_BoundaryFlux; f.varindex = GenericVarindex; f.interp.interp_param[0] = f.model.m; // _M f.interp.interp_param[1] = 2; // x direction degree f.interp.interp_param[2] = 0; // y direction degree f.interp.interp_param[3] = 0; // z direction degree f.interp.interp_param[4] = 16; // x direction refinement f.interp.interp_param[5] = 1; // y direction refinement f.interp.interp_param[6] = 1; // z direction refinement // read the gmsh file ReadMacroMesh(&(f.macromesh), "../test/testcube.msh"); // try to detect a 2d mesh Detect1DMacroMesh(&(f.macromesh)); bool is1d = f.macromesh.is1d; assert(is1d); // mesh preparation BuildConnectivity(&(f.macromesh)); //AffineMapMacroMesh(&(f.macromesh)); // prepare the initial fields f.model.cfl = 0.05; Initfield(&f); f.vmax = _VMAX; // maximal wave speed f.nb_diags = 3; f.pre_dtfield = UpdateVlasovPoisson; f.post_dtfield=NULL; f.update_after_rk = PlotVlasovPoisson; f.model.Source = VlasovP_Lagrangian_Source; // prudence... CheckMacroMesh(&(f.macromesh), f.interp.interp_param + 1); printf("cfl param =%f\n", f.hmin); real tmax = 0.03; real dt = set_dt(&f); RK2(&f, tmax, dt); //RK2(&f,0.03,0.05); // save the results and the error int iel = 2 * _NB_ELEM_V / 3; int iloc = _DEG_V; printf("Trace vi=%f\n", -_VMAX + iel * _DV + _DV * glop(_DEG_V, iloc)); Plotfield(iloc + iel * _DEG_V, false, &f, "sol","dgvisu.msh"); Plotfield(iloc + iel * _DEG_V, true, &f, "error","dgerror.msh"); Plot_Energies(&f, dt); real dd_Kinetic = L2_Kinetic_error(&f); printf("erreur kinetic L2=%lf\n", dd_Kinetic); test= test && (dd_Kinetic < 1e-2); return test; }
int TestmEq2(void) { bool test = true; field f; init_empty_field(&f); int vec = 2; f.model.cfl = 0.05; if(vec == 2) { f.model.m = 2; // num of conservative variables } else { f.model.m = 1; // num of conservative variables } f.model.NumFlux = VecTransNumFlux2d; f.model.BoundaryFlux = VecTransBoundaryFlux2d; f.model.InitData = VecTransInitData2d; f.model.ImposedData = VecTransImposedData2d; f.varindex = GenericVarindex; f.interp.interp_param[0] = f.model.m; f.interp.interp_param[1] = 2; // x direction degree f.interp.interp_param[2] = 2; // y direction degree f.interp.interp_param[3] = 0; // z direction degree f.interp.interp_param[4] = 4; // x direction refinement f.interp.interp_param[5] = 4; // y direction refinement f.interp.interp_param[6] = 1; // z direction refinement // Read the gmsh file ReadMacroMesh(&(f.macromesh), "test/testcube.msh"); // Try to detect a 2d mesh Detect2DMacroMesh(&(f.macromesh)); assert(f.macromesh.is2d); // Mesh preparation BuildConnectivity(&(f.macromesh)); //AffineMapMacroMesh(&(f.macromesh)); // Prepare the initial fields Initfield(&f); //f.dt = 1e-3; // Prudence... CheckMacroMesh(&(f.macromesh), f.interp.interp_param + 1); printf("cfl param =%f\n", f.hmin); // time derivative //dtfield(&f); //Displayfield(&f); real tmax = 0.1; f.vmax=1; real dt = set_dt(&f); RK2(&f, tmax, dt); // Save the results and the error Plotfield(0, false, &f, NULL, "dgvisu.msh"); Plotfield(0, true, &f, "error", "dgerror.msh"); real dd = L2error(&f); real tolerance = 1e-4; test = test && (dd < tolerance); printf("L2 error: %f\n", dd); return test; };