早起きして山に登ります

宣言します。これから毎朝5時に起きて山に登ります。って引っ越し直後に書こうと思っていましたが、書く前から寝坊してしまってるので、ちょっと控えめに宣言しておきます。

これから早起きしてできるだけ山に登るようにします。

今日はその朝の山登りコースのご紹介。とってもいいコースなんです。東京に住む前にも何度も登ったことがある道ですが、10年離れてみると、以前は何も感じなかった道や花やお地蔵さんや景色に感動するようになったりするんですね。























Popular posts from this blog

36時間の断食やってみた

Image
ずっと前から断食には興味があったのだけど、実際にやってみようと思ったことはなかった。 最近、ちょっと太ってきたのでダイエットしようとしてること、仕事が落ち着いていること、気候が良いこと、イスラム教に関する本を読んだこと（ 内田樹、中田考「一神教と国家 イスラーム、キリスト教、ユダヤ教」 ）、などなどあって、思い立ったが吉日、一日のプチ断食をやってみた。 宗教的な祈りや修行としての断食、健康法としての断食、抗議手段としての断食、いろいろある。仏教でも時代や宗派によって様々だけど断食は広く行われてきたことで、先達がやってきたことを少し体験してみたいとか、ダイエットしたいとか、この飽食の時代は本当にこれでいいのか、なんてことを考える上でも一度思い切りお腹をすかせてみたいとか、うっすらとした動機があることはある。 けど、まぁ、要するに暇つぶしのちょっとした小旅行に行くようなノリの断食だ。「食べない」という、とっても簡単で、低コスト（日常生活よりも低コスト！）で、誰にも迷惑をかけずに非日常が味わえるなんて、かなりお得だ。考えてみれば、病気で寝込んで何も食べれない...、みたいな時を除けば24時間ものを食べないことって、生まれてから今までなかったような気がする。一日食べない、ってだけで、ヘタな海外旅行なんかより新しい世界に出会えるかもしれない。 というわけで、木曜の夕飯を普通に食べた後、金曜一日まるまる何も食べずに（水、お茶、コーヒーはあり）、土曜の朝に解禁、という36時間の断食をやってみた。 金曜の朝、すでにお腹がすいてるんだけど、朝食は抜き。まぁ、朝を抜くことは出張の時とか、早朝に出かける時とか、時々あるので珍しくも何ともない。のだけど、外に出てるのとは違って、手にとっていい食べ物が周辺にたくさんある環境での空腹は珍しい。 で、午前中の仕事。あまり集中できないのはいつものことなので、空腹のせいなのかどうかは分からない。 昼ごはんも抜き。このあたりから「僕は一体何やってるだ...。」と思い始める。まぁ、いいか、別に食べちゃっても。だって食べ物あるんだし、お腹すいてるし。かつて断食で悟りを開いた人がいるのか、断食で健康的に美しくなった人がいるのか、社会を動かしたハンガーストライキがあったか。いや、まぁ、あったのかもしれないけど、悟りも美貌も
Keep reading

エクセル1行をテキスト1ファイルに

ほんとによく働く。感心する。 調査票の自由記述、電子化されたデータを見るのと、手書きのものを読むの、疲れ方が全然違いますね...。もちろん後者の方が疲れるのですが、それは読みにくいからという理由だけではなくて、伝わってくるものが多いんですね。扱われている内容も内容ですし、忙しい中でわざわざ自由記述欄に書きこもうと思われるような言葉なので、まあ、感じること考えることたくさんあります。 さて、今の作業はだいぶテキストの量が多いので、 WeftQDA を使ってみようと企んでいます。初めての実戦での使用です。 データは.csvで手元にあるのですがこのままだと読み込めないので.txtにします。ずばっとコピペしてもいいのですが、「●●への言及が●●件あった。」なんて感じで数えたいので、1ケース1ファイルにしておくほうが便利そうです。500件ほどあるテキストをいちいちコピペして「名前をつけて保存」なんてやってられないのでググります。 エクセルに入力済みの連続したデータを1行単位で以下のような内容でテキストファイルを作成し、かつテキストファイル名を、セルに入力されている文字を使って保存するマクロを作りたいのですが、どのようにしたら良いのでしょうか？よろしくお願いします。（ 1行単位のデータをテキストファイルに保存するマクロ ） 良い質問です。そして良い回答です。自分用にメモ。 Sub ColumnOut2Text() Dim i As Long Dim j As Long Dim Fno As Integer Dim OutColumn As String 　 Const myPath As String = "C:\txt\" With Worksheets("Sheet1") For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row 　Fno = FreeFile() 　Open myPath & .Cells(i, 1).Value & ".txt" For Output As #Fno 　For j = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column 　　
Keep reading

72時間の断食やってみた

Image
半年ほど前、 36時間の断食やってみた ところ、いろいろと気持ち良かったので、もうちょっと長い断食をやってみようと思っていた。で、そろそろ気持ちの良い季節になったので、72時間の断食をやってみた。 5月10日（日）の夕食を食べた後、72時間何も食べないで、13日（水）の夕食で解禁、というスケジュールだ。今回は、食べ物だけではなく、タバコもコーヒーもガムも禁止。口にしていいのは水だけ、だ。僕はニコチンにもカフェインにも甘味料（？）にも依存しているので、いっきに全部禁止してみるとどうなるのか、興味津々だ。 では、時間を追って、感じたこと、思ったこと、メモしておこう。 3 時間目（10日22:00） 　夕飯を食べた直後なのに（しかも多めに）なんだかお腹が空く。タバコ、食後の一服を吸わずに乗り越えた。というか、まだ開始して3時間だ...。乗り越えたも何もない。 13 時間目（11日8:00） 　いつも通りよく寝れた。朝ごはん食べたい...。すっきり目が覚めてない感じがする。 15 時間目（11日10:00） 　なんと、ここでタバコ解禁...。はやい...。よわい...。だって仕事に集中できないんだもん...。連鎖的にコーヒーもガムも解禁...。最初から食べ物だけにしとけばよかった。余計な敗北感を味わってしまった。 19 時間目（11日14:00） 　昼ごはん、乗り越えた。お腹すいた。どういうわけか前回よりも空腹感を強く感じる。 23 時間目（11日18:00） 　仕事は普通に頑張れた。空腹感がどっと押し寄せてきたり、すっかり忘れて作業に集中してたり、だ。 25 時間目（11日20:00） 　24時間経過。ここでなんと攻めのランニング、軽く30分。気持ちよく走れた。 28 時間目（11日23:00） 　空腹感はほとんど感じなくなった。3食抜くと食べてないのがデフォルト設定になるみたいだ。あと、肌の調子が良いように思える。 35 時間目（12日6:00） 　ちゃんと眠れた。空腹感も全然なくて、食べ物を見ても欲しいと思わないようになってる。もう折り返し地点だ。そして、36時間までは経験済みなので、ここからが未体験ゾーン。 43 時間目（12日14:00） 　いつも通りに、というか、それ以上に仕事がはかどる。食べ物を見ると欲しいと思うけど、
Keep reading