28 lines
640 B
Mathematica
28 lines
640 B
Mathematica
|
%-% Run Simulation %-%
|
||
|
|
clearvars
|
||
|
|
|
||
|
|
% --- Obtain simulation parameters ---
|
||
|
|
[Params] = SetupParameters();
|
||
|
|
|
||
|
|
% --- Set up spatial grids and transforms ---
|
||
|
|
[Transf] = SetupSpace(Params);
|
||
|
|
|
||
|
|
% --- Initialize ---
|
||
|
|
|
||
|
|
[psi,V,VDk] = Initialize(Params,Transf);
|
||
|
|
|
||
|
|
Observ.EVec = []; Observ.NormVec = []; Observ.PCVec = []; Observ.tVecPlot = []; Observ.mucVec = [];
|
||
|
|
t_idx = 1; %Start at t = 0;
|
||
|
|
Observ.res_idx = 1;
|
||
|
|
|
||
|
|
% --- Job Settings ---
|
||
|
|
|
||
|
|
njob = 6;
|
||
|
|
|
||
|
|
mkdir(sprintf('./Data'))
|
||
|
|
mkdir(sprintf('./Data/Run_%03i',njob))
|
||
|
|
|
||
|
|
% --- Run Simulation ---
|
||
|
|
|
||
|
|
% Imaginary Time Evolution
|
||
|
|
[psi] = SplitStepFourierImaginaryTime(psi,Params,Transf,VDk,V,njob,t_idx,Observ);
|