Reaction diffusion equation with logistic growth
parallel-computed by MPI using two nodes

<< Graphics`Graphics3D`

SetDirectory["/Users/takasu/home/\:60c5\:5831\:79d1\:5b66\:79d1\:306e\
\:4ed5\:4e8b/\:8b1b\:7fa9/\:5e73\:6210\:ff12\:ff11\:5e74\:5ea6/H21 \:8a08\
\:7b97\:6a5f\:5b9f\:9a132/MPI/testMPI/build/Release/"]

2つのファイルの読み込み

size  =  2001;

data0  =  
        ReadList["data-0", {Real, Real}];
data0  =  
        Partition[data0, 
          size];

data1  =  
        ReadList["data-1", {Real, Real}];
data1  =  
        Partition[data1, 
          size];

Length[data0]

2つのファイルの連結

dataAll  =  {};
Do[
AppendTo[ dataAll, 
        Join[data0[[1]], data1[[1]]] ], {i, 1, 
        Length[data0]}
]

dataAll[[1]];

描画

glist  =  {};
Do[
g  =  
        ListPlot[data0[[i]], PlotJoined -> True, 
          PlotRange -> {0, 1.2}, 
          AxesLabel -> {"t", "n"}]; 
AppendTo[
        glist, g], {i, 1, Length[data0], 5}
]

Show[glist]