gslice_array : サンプルコードを、行列抽出のものにした。