GetArray[fname_] :=
Block[{array},
   array = ReadList[fname,{Number}];
   Return[array]
]

PutArray[fname_, array_] :=
Block[{i,j},
   OpenWrite[fname];
   j = 0; 
   For [i=1, i <= Length[array], i++,
      Write[fname,j, ,array[[i]]];
      j = j + 0.05;
   ]; 
   Close[fname]; 
]

GetArrayTwo[fname_] :=
Block[{array},
   array = ReadList[fname,{Number,Number}];
   Return[array]
]

ShowArray[array_, type_] :=
Block[{},
  If[type == 1, Show[Graphics[ Map[Point,array] ]] ];
  If[type == 2, ListPlot3D[array]];
  If[type == 3, ListDensityPlot[array]];
]

