« September 2017 | Main | December 2017 »

October 2017

10/21/2017

Google スプレッドシートでスクレーピングのトライアル1

Googleスプレッドシートでは、Excelよりも簡単にWebスクレーピングが出来るらしいので、調べて、どのように実現出来るのかをテストしてみた。

Spread
   














①B3のセルに日本気象協会10日間天気予報のURL値を一つ書き込み、C7のセルからB3のアドレスを参照し、スクレーピングしてみた。
セル"C7"には、「 =IMPORTHTML(B3,"table",1) 」 と書き込めば、直ぐにデータをインポートし表示してくれる。(図の左側のデータ表示部分)ここで、
「 =IMPORTHTML(B3,"table",1) 」として表示してくれるのは、最初の5日分なので、残りの5日分(6日目から10日目まで)を表示させるには、最初の5日分の書き込みの邪魔にならない所のセル(表示させる左上隅になるセル)に「=IMPORTHTML(B3,"table",2) 」と記入し、日本気象協会10日間天気予報のURLの2番目に書かれているテーブルを読込み、ここに書き込む必要がある。

しかし、僕がExcelで行ったように、任意の数のURLデータが順番に並んでいるような場合には、そのURLが書かれたアドレスを参照・読込し、スクレーピングでデータをインポートして欲しい。

②B3のアドレス番号(3行目、2列目)を参照する方法は・・・、
セル"K7"にその方法を記載して試してみた。

セル"K7"には、「=IMPORTHTML(INDIRECT(ADDRESS(3,2)),"table",1) 」 と書き込めば、直ぐにデータをインポートし表示してくれた。(図の右側のデータ表示部分)

ADDRESS(3,2) の表記は、B3のアドレスを数値で参照する。
これだけでは、アドレスを指定するだけなので、INDIRECT関数を使って、そのアドレスに書かれたデータを表示させるようにしている。

結果は図のとおりである。

どちらの場合でも同じデータが表示された。

10/19/2017

複数訪問予定地の天気予報(3時間と10日間を組合せ)表示

複数の離れた場所の訪問予定地がある際に、天気予報はどうなるのか調べる事があるが、何回も天気予報情報を開いて調べ、何枚もプリントし、それらを並べて漸く、自分の行動予定に伴う天気の今後の状況が把握できる。
もう少し効率的に調べて表示したいものだと思い、Excelのスクレーピング技術で表示するようにしてみた。当初は10日間天気予報のデータだけで纏めていたが、最初の3日間なら、3時間天気予報のデータを使う事が出来るので、3時間天気予報と10日間天気予報を組合せて表示させるようにしてみた。
310
マクロの内容は殆ど同じではあるが、3時間天気予報と10日間天気予報では、記載方法が少し違っている部分を変更してやる必要がある。(左図で表示した結果サンプルでは、データの幅が広くて画面からはみ出し、この画面では残り2日分が表示出来ていない。)

なお、場所に関するデータ(図のA~B列)の作成方法は、10日間天気予報と同じとした。3時間天気予報の部分は内部処理で補っている。

作成したマクロを以下に表示する。変更した部分は、10日間天気予報で作成したマクロと比較すれば、容易に分かると思うが、マクロの中に若干のコメントも記載したので、興味がある方には参考になると思う。

Webを読み取りExcel内に書き写した部分は、マクロの最後の部分で消去しているので、この部分をコメント表示にすれば、どのような書き写しが行われたかが分かり、参考になると思う。

尚、Excelシート内にマクロを実行するボタンを作成しておけば、便利だと思う。

《注記》 2017/10/20: マクロの記述に間違いがあり、3時間天気予報が地域別で更新されなかったのを修正した。
3104上図では最初の3日間天気予報の表示が全て同じになってしまっているが、左の図では地域別に違った状況になっている。




《マクロ》

Sub WeatherScraper2()
'3時間天気予報と10日間天気予測を組み合わせ表示するようにした(2017/10/19)
 Dim i As Long, j As Long, k As Long, imax As Long
 Dim URL As String, URLSet As String
 Dim URL10days As String, URL3hours As String
 Dim charsell As String, dadd As String, sadd As String
 Dim nsell As Long, hnsel As Long
'雨の際のセルの色を付ける変数 rain 雨⇒20 雨天以外は色無し⇒0
 Dim rain As Integer
'雨量が多く設定色番号 rainhard  33 を使うときの雨量(現在設定は 2㎜以上)
 Dim rainhard As Integer
'qrainstr は降水量セルに書かれた文字、qrain は降水量
 Dim qrainstr As String, qrainnbr As String, qrain As Long

 rainhard = 2
' i: URLとして書かれた処理入力番号
 i = 1

'URLが書かれたセル内にデータがある間処理を続ける。
 Do Until Cells(i + 2, 2) = ""
 
'10days.htmlから3hours.htmlを作る
 URL10days = Range(Cells(i + 2, 2).Address)
 URL3hours = Replace(URL10days, "10days", "3hours")

'先ず3時間天気予報のURLをセットし、スクレーピングする。
 URLSet = "URL;" & URL3hours

 With ActiveSheet.QueryTables.Add(Connection:= _
        URLSet, _
        Destination:=Range(Cells(101, 61 + (i - 1) * 9).Address))
        .Name = "?kd=1&tm=d&vl=a&mk=1&p=1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
 End With
 
'不要な4日目以降のデータ領域を削除する。
 Range(Cells(155, 61 + (i - 1) * 9), Cells(240, 70 + (i - 1) * 9).Address).Delete

'次に10日間天気予報のURLをセットし、スクレーピングする。
'この際、.RefreshStyle は xlOverwriteCells とする。
 URLSet = "URL;" & URL10days
 
 With ActiveSheet.QueryTables.Add(Connection:= _
        URLSet, _
        Destination:=Range(Cells(155, 61 + (i - 1) * 9).Address))
        .Name = "?kd=1&tm=d&vl=a&mk=1&p=1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
 End With

'不要なデータ領域を削除する。少し大きめの領域を削除
 Range(Cells(229, 61 + (i - 1) * 9), Cells(250, 70 + (i - 1) * 9).Address).Delete

'WebからExcelに書き写した表データ部分から、
'新たな表作成に必要なデータ部分をピックアップしてC列から右側に表記する。

 If i = 1 Then
'先ず、日・曜日を転記する。日と曜日のデータは、61列156行目から
    For j = 1 To 3
      Cells(1, 3 + (j - 1) * 8) = Cells(156 + (j - 1) * 7, 61)
    Next j
    
    For j = 4 To 5
      Cells(1, 27 + (j - 4) * 4) = Cells(177 + (j - 4) * 7, 61)
    Next j
    
    For j = 6 To 10
      Cells(1, 35 + (j - 6) * 4) = Cells(194 + (j - 6) * 7, 61)
    Next j
    
'時間枠(3:00,6:00,9:00,12:00,15:00,18:00,21:00,24:00)を記載する。
'これらの値は数値なので、シリアル値に換算するため24で割る。
    For j = 1 To 3
        For k = 1 To 8
          Cells(2, 3 + (k - 1) + (j - 1) * 8) = Cells(104, 62 + (k - 1)) / 24
        Next k
    Next j
    
'次に時間枠(3:00,9:00,15:00,21:00)を転記する。
'ここは文字列なので、其のまま転記すればよい。
    For j = 4 To 10
        For k = 1 To 4
          Cells(2, 27 + (k - 1) + (j - 4) * 4) = Cells(180 + (k - 1), 61)
        Next k
    Next j
  
'日付と時刻を見やすくするため、セルの書式設定、セルの結合を行う。
    For j = 1 To 3
      Cells(1, 3 + (j - 1) * 8).NumberFormatLocal = "G/標準"
      Range(Cells(1, 3 + (j - 1) * 8), Cells(1, 10 + (j - 1) * 8)).Merge
      Range(Cells(1, 3 + (j - 1) * 8), Cells(1, 10 + (j - 1) * 8)).HorizontalAlignment = xlCenter
        For k = 1 To 8
          Cells(2, 3 + (k - 1) + (j - 1) * 8).NumberFormatLocal = "[h]:mm"
        Next k
    Next j

    For j = 4 To 10
      Cells(1, 27 + (j - 4) * 4).NumberFormatLocal = "G/標準"
      Range(Cells(1, 27 + (j - 4) * 4), Cells(1, 30 + 4 * (j - 4))).Merge
      Range(Cells(1, 27 + (j - 4) * 4), Cells(1, 30 + 4 * (j - 4))).HorizontalAlignment = xlCenter
        For k = 1 To 4
          Cells(2, 27 + (k - 1) + (j - 4) * 4).NumberFormatLocal = "hh:mm"
        Next k
    Next j
End If

'天気に対するコメントを転記する。
     For j = 1 To 3
         For k = 1 To 8
           sadd = Range(Cells(107 + (j - 1) * 18, 62 + (k - 1)+ (i - 1) * 9).Address)
           If InStr(sadd, "晴れ") > 0 Then
           rain = 0
           Else
           End If
           If InStr(sadd, "曇り") > 0 Then
           rain = 15
           Else
           End If

           If InStr(sadd, "雨") > 0 Then
           rain = 20
'降水量が書き込まれたセル[qrainstr]
'文字を数値[qrain]にして、rainhard 以上なら青い色を濃い青 33 にする。
           qrainstr = Range(Cells(112 + (j - 1) * 18, 62 + (k - 1) + (i - 1) * 9).Address)
           qrain = Val(qrainstr)
             If qrain > 0 Then
'「小雨」で、雨量が 0以上なら色は薄い水色(28)に設定する。
             rain = 28
             Else
             End If
             
             If qrain >= rainhard Then
'「小雨」で、雨量がここで設定した2mm以上なら色は濃い水色(33)に設定する。
             rain = 33
             Else
             End If
         Else
         End If
         
'セルに天気コメントを書き入れ、そのセルの色を付ける。
         Cells(3 + (i - 1), 3 + (k - 1) + (j - 1) * 8) = sadd
         Cells(3 + (i - 1), 3 + (k - 1) + (j - 1) * 8).Interior.ColorIndex = rain
         Next k
     Next j
     
'天気に対するコメント、データは62列より(晴れ、曇りなど)を転記する。
'ここからは、URLを読んだ数毎に、読込み列は+9する必要がある。
'Webから写し取ったセル内の天気コメントは、全て二重表現になるので、文字数を1/2にする。
     For j = 4 To 5
         For k = 1 To 4
           charsell = Range(Cells(180 + (k - 1) + (j - 4) * 7, 62 + (i - 1) * 9).Address)
'セル内の文字数を数える。
           nsell = Len(charsell)
'二重に書いているので数値を半分にする。
           hnsel = nsell / 2
'セル枠に書かれている文字の前半分
           sadd = Mid(charsell, 1, hnsel)

           If InStr(sadd, "晴れ") > 0 Then
           rain = 0
           Else
           End If
           If InStr(sadd, "曇り") > 0 Then
           rain = 15
           Else
           End If

           If InStr(sadd, "雨") > 0 Then
           rain = 20
'降水量が書き込まれたセル[qrainstr]には、文字形式で「2㎜」などと書かれている。
'全角1文字[㎜]の左側の文字を数値[qrain]にして、rainhard 以上なら青い色を濃い青 33 にする。
           qrainstr = Range(Cells(180 + (k - 1) + (j - 4) * 7, 65 + (i - 1) * 9).Address)
           qrainnbr = Left(qrainstr, InStr(qrainstr, "㎜") - 1)
           qrain = Val(qrainnbr)
             If qrain > 0 Then
'「小雨」で、雨量が 0以上なら色は薄い水色(28)に設定する。
             rain = 28
             Else
             End If
             
             If qrain >= rainhard Then
'「小雨」で、雨量がここで設定した2mm以上なら色は濃い水色(33)に設定する。
             rain = 33
             Else
             End If
         Else
         End If
         
'セルに天気コメントを書き入れ、そのセルの色を付ける。
         Cells(3 + (i - 1), 27 + (k - 1) + (j - 4) * 4) = sadd
         Cells(3 + (i - 1), 27 + (k - 1) + (j - 4) * 4).Interior.ColorIndex = rain
         Next k
     Next j

'6日目以降の処理は、1~5日目までの処理と同じだが、転記元の場所が違うので別処理とした
     For j = 6 To 10
         For k = 1 To 4
           charsell = Range(Cells(197 + (k - 1) + (j - 6) * 7, 62 + (i - 1) * 9).Address)
           nsell = Len(charsell)
           hnsel = nsell / 2
           sadd = Mid(charsell, 1, hnsel)
        
           If InStr(sadd, "晴れ") > 0 Then
           rain = 0
           Else
           End If
           If InStr(sadd, "曇り") > 0 Then
           rain = 15
           Else
           End If
         
           If InStr(sadd, "雨") > 0 Then
           rain = 20
           qrainstr = Range(Cells(197 + (k - 1) + (j - 6) * 7, 65 + (i - 1) * 9).Address)
           qrainnbr = Left(qrainstr, InStr(qrainstr, "㎜") - 1)
           qrain = Val(qrainnbr)
             If qrain > 0 Then

             rain = 28
             Else
             End If
             
             If qrain >= rainhard Then
             rain = 33
             Else
             End If
         Else
     End If
        
'セルに天気コメントを書き入れ、そのセルの色を付ける。
         Cells(3 + (i - 1), 35 + (k - 1) + (j - 6) * 4) = sadd
         Cells(3 + (i - 1), 35 + (k - 1) + (j - 6) * 4).Interior.ColorIndex = rain
         Next k
     Next j

'B列のデータが有る限り処理する為カウンターを1つ進めて、最初の処理点に戻す。
 i = i + 1
Loop

imax = i - 1

'表の幅をデータの文字長さに合わせて自動調整する。
'範囲は、C列からBB列まで
Range("C:BB").Columns.AutoFit

'表の罫線を引く。
'罫線を引く範囲は、C1から第54列の第(imax+2)行まで
Range(Cells(1, 1), Cells(imax + 2, 54)).Borders.LineStyle = xlContinuous

'セルの中のデータは幅方向の中央に置く
Range(Cells(1, 3), Cells(imax + 2, 54)).HorizontalAlignment = xlCenter

'直ぐに必要としないデータ領域を非表示にし、Webから写し取ったセル部分を削除する。
Columns("B").Hidden = True
Range(Columns(61), Columns(61 + 6 + imax * 7)).Delete

End Sub

10/17/2017

ロボットカーを作ろう・・・ 先ず外装部分を作ってみる

屋根裏や床下の自分が入っていけない場所の状況を把握したい・・・と思い、ロボットカーを作ってみようと思った。

以前、中国からシャシーを購入しようとしたが、2度ほどトラブルにあい、自分で全て企画してみることにした。

タミヤ製のギヤボックス等を使って、外装部分を組み立ててみた。プラモデルやキットでは無いので、オリジナルの形である。

未だ、完成していません。主にシャシー周りの外装が終了しただけです。全て頭の中で企画し、身の回りで見つけ、部品に加工出来そうなものを使って、手あたりばったり組立ていったオリジナル品です。

配線は、外装部品類がどのように配置出来るかが決まらないと出来ないので・・・これからになります。プログラムと合わせて配線を進めるので時間がかかりそうです。

コンピュータはRaspberryPi3とArduinoUnoの2台を搭載します。ヘッドライトも明るいものを2個装着します。前方にUSBカメラを搭載します。電池は18650タイプを4個搭載し、無線でコントロールする予定です。

全長約270mm、全幅約130mm、全高約115mmで、以外に重量があります。
果たして、動くまでゆくかどうか・・・配線と同時にプログラム開発もあり、動くまでには相当な時間がかかりそうです。

Img_20171017_204254 Img_20171017_204326 Img_20171017_204349 Img_20171017_204437

10/02/2017

大清水から尾瀬・燧ケ岳 日帰り登山

Gps2 2017/9/28日23:30、川越駅西口バス停より関越交通の夜行バスを使って、大清水に入り、翌日9月30日に燧ケ岳(柴安嵓、俎嵓、ミノブチ岳)を登ってきた。

天気は、ほぼ予報通りで、写真のように青空も見えて良い天気であった。
燧ヶ岳への登山道は、ぬかるみの多い湿地帯の中を歩いて居るような道で、歩行は決して快適では無かった。僕は、ゴム長靴を履いていたので、足元の泥による汚れは何も気にすることなく歩くことが出来た。


燧ケ岳に登る 3合目を過ぎた辺りで、同じルートを歩いて居る若い女性に出会った。僕は疲れ始めて歩行速度も落ちてきていたので、彼女と雑談をしながら柴安嵓まで一緒に登ることが出来た。連れが居ると、疲れは一時的にでも忘れる事が出来る。彼女は休暇をとって友人と尾瀬に来て、確か長蔵小屋に泊まり、早朝より燧ヶ岳を目指して歩いてきたとのこと。友人は、尾瀬ヶ原を歩きに行ったそうだ。其々、別の尾瀬の楽しみ方をしている!柴安嵓を登った後は、赤田代にある温泉小屋に泊まり、尾瀬を満喫して帰るとの事だった。僕は熊沢田代の景色を見たいので、柴安嵓で記念写真を撮って貰い別れたが、とても感じの良い人だった。

熊沢田代の景色は、私のお気に入りの場所である。ここは、俎嵓側から見ても良いし、2つの池塘の先から振り返って燧ケ岳方向を見ても良い景色だと僕は思っている。今回は草紅葉が綺麗な色を放ち、また2つの池塘は、空の青を映し、綺麗な色の対比を見せてくれた。この場所を撮影した多くの風景写真でも、この日のように池塘が青く見えているものは殆ど無かったのではないかと思った。

熊沢田代を過ぎた登り階段で、急に右足の大腿四頭筋が攣ってしまった。脚を揉み解し、水分を補給して少し休んで、痛みを感じながら速度を落として暫く歩くと、痛みは徐々に引いて行った。しかし、ここから御池に下りるまでは、急で滑りやすい下り勾配が続く・・・。この燧ケ岳の山道の中では、一番嫌いな場所になる。神経を集中させながら慎重に下山した。
濡れていて段差も大きく、小さな岩も多く滑りやすく感じたが、硬めのインソールを中に入れたゴム長靴は、僕が普段使っている硬めのソールの登山靴より滑りにくいと思ったし、28kmも歩いて足に水膨れが出来なかった事には正直驚いた。

御池から七入へ下るところの「ブナ平」は、残念ながら未だ紅葉に至らず・・・紅葉までにはまだしばらく時間がかかりそうに思えた。僕は、緑に囲まれた古道の中を七入バス停に向かって下りたが、途中で急な階段を下りるところがあり、膝がまた攣るのではないかと心配になって、一般道を歩いてしまった。後から考えれば、ゆっくりした速度でも良いから、階段を下りていれば、七入バス停で当初予定通りのバスに乗れた可能性が高いと僕は思っている。

七入バス停への到着時間が、バス停車時刻の3分後になり、約1時間半後のバスを待たざるを得なくなった。何もない「七入バス停」で時間を潰すのは面白く無いので、キリンテ登山口の近くにあるバス停まで歩くことにした。そのバス停の傍には「みやまえ食堂」があるので、早めの夕食を摂ってバスの到着までその場所で待たせて戴こうという計画だ。食堂では、この地方の名物蕎麦「裁ち蕎麦」の大盛りを食べて、会津高原尾瀬口方面行き最終バスに乗った。(この食堂、34年前から開業してきたが、今秋10月24日で営業終了との事。何とも寂しくとても残念である。)

七入で乗車すべきバスに乗り遅れて、帰宅のスタート時刻は、1時間半遅くなったが、
特急電車に乗車できた為、自宅到着は、当初予定に対し30分の遅れとなった。

歩行距離と時間:

 持参した
GarminのGPS eTrex30(現在では旧型、後継機種としてeTrex30xがあるらしい)に依れば、歩いたルート(上記地図上で水色の線で示したルート)の歩行距離は 27.8km、所要時間は11時間30分であった。

 詳細は次のようであった。
Photo




 [04:15]04:07 大清水バス停
     04:51 一ノ瀬休憩所  小休止
     05:25 岩清水
 [06:20]05:54 三平峠
 [06:35]06:13 三平下(尾瀬沼山荘)
      ここでトイレ休憩
     06:41 尾瀬沼ビジターセンター
      ここで、朝食・トイレ休憩  (気温は 2℃)
            07:10 長英新道分岐
            07:44 一合目(h=約1745m、標高値はGPS表示値を使った。下記同様)
            08:01 二合目(h=約1810m)
            08:18 三合目(h=約1890m)
            08:34 四合目(h=約1960m)
            08:45 五合目(h=約2020m)
            08:56 六合目(h=約2085m)

            09:20 ミノブチ岳(h=約2213m)  小休止 約7分間
            09:34 八合目(h=約2235m)
            09:46 九合目(h=約2290m)
 [09:55]09:57 俎嵓(まないたぐら、h=2346m)  小休止 約15分間
 [10:20]10:36 柴安嵓(しばやすぐら、h=2356m)  小休止 約6分間
 [10:45]11:04 俎嵓           小休止 約13分間
 [11:45]12:04 熊沢田代
 [12:25]12:49 広沢田代
 [13:05]13:36 御池(みいけ)
 [14:40]14:59 七入(バス停)
     15:35 みやいり食堂(キリンテ登山口の少し北側に位置)
           七入~みやいり食堂:距離約 2.7km(約36分)

 大清水から御池までのルートは、事前にヤマケイオンラインを使って、コースタイムと登山計画書を作成しておいたので、その時の計画時刻を[ ]内に記載しておく。コースタイム倍率は1.00倍である。七入(バス停)の[ ]内時刻は、私が計画した到着時刻。

帰宅アクセス概要

 みやまえ食堂(2017年10月24日で閉店とのこと)前のキリンテバス停から
16:30頃 バス乗車(
みやまえ食堂前のキリンテバス停定刻より少し遅れていた・・・)
17:50頃 会津高原尾瀬口着
18:11 会津高原尾瀬口発(野岩鉄道特急リバティ会津148号浅草行き 指定席@1600円)
20:41 春日部着
20:45 春日部発(東武アーバンパークライン・大宮行き、8番線より)
21:07 大宮着
21:23 大宮発(JR埼京線通勤快速・川越行き)
21:46 川越着

事前の天気確認:

 僕は、下記の予報を調べて決行した。
 ①「てんきとくらす 燧ケ岳」、「10日間天気予報 尾瀬
 ②weather2"Oze-Tokura"

10月1日(日曜日)、「
ロングウォークちちぶ路」のイベントが計画されており、今年は是非参加したいと思っていたのだが・・・、階段を降りる時に大腿四頭筋だけがまだ少し痛むため、出席を取りやめてこのブログを書いている。
10月2日(月曜日)、脚の筋肉痛はすっかり治まった。

持参した道具など
①靴:ビバホームオリジナルのゴム長靴の中にSuperfeetのインソール(GREEN)を入れた。
②バックパック: Millet SAAS Fee2 30(L)
③上着:長袖Tシャツ、Arc'teryx Gamma LT Jacket、
防寒用薄手のダウンジャケット、
  着替え用:長袖Tシャツx1(使用せず)、登山用靴下x1
(使用せず)
④ズボン:替えなし。
⑤雨具: ゴアテックスの上着のみ持参したが使用せず。
⑥水: 500mlx 4本 ⇒ 使ったのは 2本半
⑦食料: 朝食用として「サンドウィッチ」、昼食用として「おにぎり」x 2個
⑧非常食: アンパンx1、ウイダーinゼリー エネルギーx1、アーモンドチョコレート
⑨ストック: LEKI Quantum
⑩ヘッドライト: Black Diamond ストーム 単4x4 (予備電池:単4x4)
⑪帽子:x1
⑫熊よけ:熊鈴、熊撃退スプレー
⑬カメラ: Nikon D800 & AF-S Nikkor 24-120mm
⑭財布:
⑮ファーストエイドセット: 常備薬、胃腸薬、バンドエイド等
⑯フェースタオル: 1本
⑰サングラス:x1
⑱手袋:x1
⑲GPS: Garmin eTrex30 (地図は、UUD製 Japan Digital Road Map Navigator and Topo 10m for Garmin GPS V5)
⑳トラベル用首枕:x1 (100均ショップ)


《写真》 撮影した写真を下記に、時系列的に並べた。
Dsc_7744 Dsc_7752Dsc_7759 Dsc_7765Dsc_7766 Dsc_7769Dsc_7846 Dsc_7774 Dsc_7780






Dsc_7784 Dsc_7791
 Dsc_7792Dsc_7794






Dsc_7809Dsc_7813Dsc_7815Dsc_7818Dsc_7736Dsc_7738












Dsc_7819 Dsc_7845 Dsc_7854Dsc_7866Dsc_7870Dsc_7881Dsc_7885_stitchDsc_7896Dsc_7903Dsc_7913Dsc_7924Dsc_7927Dsc_7931Dsc_7951Dsc_7971Dsc_7986Dsc_7996Dsc_8000_stitchDsc_7998 Dsc_8009Dsc_8028Dsc_8043Dsc_8045Dsc_8052Dsc_8055Dsc_8086 Dsc_8068Dsc_8077Dsc_8096Dsc_8137Dsc_8153Dsc_8162Dsc_8171Dsc_8175Dsc_8187Dsc_8195Dsc_8205Dsc_8208Dsc_8211Dsc_8214Dsc_8225Dsc_8242Dsc_8271Dsc_8275Dsc_8284 Dsc_8295Img_20170929_162153Img_20170929_155147Img_20170929_163009
























































































《歩行ルートデータ》
「track__29_sep_2017_oze_hiuchi_mountain.gpx」をダウンロード

« September 2017 | Main | December 2017 »

June 2018
Sun Mon Tue Wed Thu Fri Sat
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

Recent Trackbacks

無料ブログはココログ