小倉

6月13日(金)
チャリ通にいい天気だ。
2時限目サービス院講。今週は休みと言っていたが、その後
時刻表を調べると11時53分のバスで間に合うことがわかり、
11時半まで開講をメールで通知していた。

アンケート集計で話を進めているので、数量化を行う前に
とりあえず回帰の話をする。

院生から「もう11時半ですよ」と促されて、講義を止める。
天気がいいのでチャリで駅までいくとなると、もう少し講義
ができたかなとも思うが、とりあえず、荷物を持って駅まで
チャリで。西口地下の駐輪場にとめて、2階の発券機へ。
ちょうど12時頃に着く。

のぞみは12時40分なのでサンステでランチを取り、改札をはいる。
先日ＪＲ西からメールが来て、昨年度のポイントは6月末で失効
するというので、グリーン席に振り替えていたやつである。

N700系のグリーンはさすがに広いですね。がらがらで隣も空いて
るので、さらに広く感じる。肘掛に電源もあり、パソコンであろうと
ＤＶＤであろうと使い放題。

小倉で降りることは何年ぶり？何十年ぶり？
駅ビルの中にモノレールがど～んと入っているのにはびっくりした。
その駅ビルの中のホテルが今日の会場。
3時から6時半まで。

それほど途切れることなく、待ちもそれほどなく進む。
これ位が楽ですね。

6時半過ぎに終了。
急げば19：10ののぞみにも間に合ったが、予約していた19:40まで
ビール、伊佐美を楽しんで、車中へ。ほぼ熟睡。
気がつくと福山を越えていた。

21時過ぎ岡山着。駐輪代150円を払ってオフィスへ到着。

木曜日

6月12日(木)のち
朝ははっきりしない天気。予報では午後から晴れ。
降水確率は０。予報を信じでチャリで行くか？
悩むところだ。まあ、チャリにするかと思って、
玄関を出たところで水滴が一つ顔にかかる。
これで車に変更！　あれは木の枝からの滴だったかも。
でもチャリをやめる理由づけになる大きな出来事。

1時限目院講。
無線LANが使えるように設定するも、焦るとよくない
ですね、LANとWANを間違えて設定してしまい、
わけわからなくなり、今日はやめ。講義終了後にまわす。

早く来た院生からデータ入力をsource()でやったと聞き、
あのデータがsourceで入力できるのかと、感心する。

レポートの解説後、PCAの入口。

朝方設定に失敗したルーターの設定。
初期状態にリセットして最初からやり直そうとしたのに、
ハードリセットが見つからない。取説見てもソフトリセット
しか書いていない。ソフトリセットのためにはルーターに
接続しなきゃいけない。それが難しいからリセットしようと
しているのに、この取説は何だと悪態をつきつつ、
うろ覚えでルーターに接続してみる。
うろ覚えがあっていたようで、接続できた。
接続できれば、リセットは不要。正しい値にセットすれば
済むことである。やっぱり取説が悪い。

午後、明日の小倉の資料を取りに業務部へ。
ついでに昨日完成した全国版資料の手渡し。

その足で院ゼミへ。

4時過ぎ、終了して研究室へ。
業務でもらってきた資料をもとに、来週からの説明会の
資料の作成。

つぎつぎと新しいデータ等が追加されるが、説明会の
時間は有限。
20分、30分、40分など。どこを削るか？悩ましい。

雨

6月11日(水)のち
天気予報では雨になるというので車で出勤。
予報通り午後は雨になっていた。
1時限目講義。期待値、分散。

昨夜から行っている重複データの処理を続ける。
簡単だと思ったのに、なぜか時間がかかり、終わったのが
14時ころ。一意的になってしまえば、あとは一気に
プログラムで処理して、全国版の資料完成。

とりあえず
　東日本地区（近畿より東）
　近畿地区
　岡山県
　中国地区（岡山県を除く）
　四国地区
　九州・沖縄地区
に分割する。

1時限目の講義のときに受講生から言われていた
moodleに置いているファイル名の変更。
IE6だと、日本語のファイル名が一部デコードできず、
ファイルのダウンロードができない件。

明日の院講の準備。
レポート提出2名。
それを参考？に、解析例のパワポ作成。
データ処理の一番最初の段階のデータ入力の所を
きちんとしゃべってない事に気づく。
ｉ研の二人はＲはバリバリだし、Ｒの講義は多数
あるので、最初のデータ入力の方法については
失念していた。この講義ではサンプルデータばっかり
扱っていたので、これまでdata()や、source()で
データを入力していた。

明日の新しい章のテキストのコピー、パワポの作成。
念のためにＲの処理もチェックして見ると、
動かないところがありますね。Ｒからのコピペ
でなくて、打ち込んだところには結構タイプミスが
入っている。きちんとコピペすることにしよう。

バッテリの不調？

6月10日(火)
今日もチャリでと出発したものの、坂の途中でブレーキがかかったように
ペタルが重くなる。スイッチを入れ直すと、一瞬軽くなるものの、すぐに
ブレーキがかかかる。見るとバッテリが点滅。
昨夜は充電器につないでたはずなのに、どうして？コンセントが外れていたか？

これじゃ坂は登れない！　お、Uターンして坂を下り自宅に戻る。
バッテリを充電器につないでみると、コンセントは繋がってるものの、
充電を示す赤色でなくて、放電を示す緑色のランプがついている。

この充電器、バッテリのメモリ効果をなくすために、ときどき放電後充電を
行う。バッテリの残が少ない場合には放電後充電でも一晩で間に合うことも
あるが、放電に時間がかかるようで、バッテリ残が多い時には一晩では
無理で、ほぼ一日かかってしまう。

普段は充電器にセットするときに赤色か緑色か、どちらのランプが点くか
チェックして、緑色がついた時には翌日のことを考えて、スイッチで赤色
に切り替えることもやっていた。

昨夜はチェックするのを忘れていたようだ。
バッテリの残も多かったので、ほとんど放電に一晩かかっていたようだ。

ということで、車に乗り換えて出勤。

2時限目　院講。線形変換、独立と無相関、独立な場合の周辺分布まで。

午後、重複データのチャック。全国で調べると結構たくさんある。
後ろに都道府県名を付けるようにプログラム？してみる。
プログラムは簡単だが、どうにも冗長すぎる。長すぎて気にくわない。

4時から業務部の会議。1時間ほど。

夜、昨夜から順延したＫゼミ。

終了後、重複データの処理。
処理方針の決定。重複データだけに、都道府県コード2桁を付加することに。
プログラムはちと面倒に。人力でとりかかる。
半分ほど修正が終わったところで、眠くなり帰宅。

相談会

6月9日(月)
はっきりしない天気だが、ONIの天気チャネルによると、
岡山市内の降水確率は一日中0％。ということでチャリで出勤。

10時より業務部の定例打ち合わせ会議。
11時過ぎ終了後、土曜日に作成したマクロを皆に配布する。

ランチ後、勝手に部屋に放り込まれていたPC一式の処理。
メールを見ると、どこに持って行こうかと書いてきているので、
現在、物がどこにあるかは無視して、返事する。

金曜日までの説明会の名刺の整理をｍにやってもらいながら、
説明会の後処理。
約束したデータの手配、書類の送付準備。

関西以東のデータで表を作成し、件のマクロを乗せようとするが、
データ項目に一意性が無いようで、エラーで落ちる。
データの吟味が必要なようだ。

というあたりで、今日の説明会に出発する時間となる。
ｍに駅西口横の会場まで送ってもらう。

3時半開始。左奥、ないしは右奥というのが市内での定位置。
今日は左奥。壁際には見慣れた顔が多いものの、見慣れない所からも。

さて、3時半から6時半までだが、ほぼ常時10名以上の待ち行列が。
帝国の6時半に終了するのは無理としても、通常7時ころになると、
待つのを諦めて行列が自然解消するのだが、今日はどうしたん
でしょうね、自然解消せず。

8時前には３軒ほど先で同じように延長していた海峡向かいのK大も
終了し、ついに一人になる。
後片付けも進んで、広い会場にたくさんん設置されていた机椅子も
ほぼ完全になくなっている。

かたづけの連中の早く終わらないかなという雰囲気がギンギンに
伝わってくる中、８時２０分過ぎやっと終了。

最後の一人の連れがたくさんいたようで、最後はドサッといなくなった。

ほぼ５時間の間、トイレに行く暇もなかった。

終わってあわただしく片付けしていると、ｉさんと、Ｋさんが会場内まで
迎えに来てくれた。というかだいぶ前から、入口付近で眺めていたらしい。

夜の予定はＫさんに迎えに来てもらい、夕食後、Ｋさんのゼミをする
ことになっていたが、今晩のゼミは流してもらい、明日に延期。

嵐屋というラーメン屋（先日Ｃ長が薦めいていた店）に連れて行ってもらう。
ここは初めて。そんなにわかりやすい場所ではないが、有名らしい。
白ネギ千切り入りの塩ラーメン。あっさりしていますね。

ごみ有料化

6月8日(日)一応
梅雨？の合間の晴れ。とは言え、あまりはっきりしない天気。
どちらかというと曇り見たいな天候だった。

なぜか朝はのんびり、まったりと8時過ぎからごぞごそ起きだし、
遅めの朝食。

そのままぐずぐずしていると、すぐにお昼。
でもブランチでお昼や抜きにして、昼寝。

連れ合いはボランティアへ。

夕方目を覚まし、これじゃいけないと起きだして、
街中へ。

ビブレに本屋ができたというので、チャリで覗きに行く。

２階、３階というが、２階を見てるだけで時間切れ。

１９時から岡山市のごみ有料化の説明会が小学校であるので、
行ってみることにしていた。あわててチャリで山越えして
５分ほど遅れて到着。

あまり参加者はいないだろうと思ってたが、結構集まっている。
体育館に１００名から２００名ほど。

１時間ほど、市側の説明があって、その後質問。
質問というより、詰問、つるしあげ見たいな感じの発言が
多かった。

途中で退散。

ごみ袋が(大きいので)５０円になるそうだ。

有料化もいいがサービスもよくしてもらいたいものだ。
福岡市や、その周辺自治体がやってるように、
夜中の戸別収集を実現してもらいたいものだ。

ごみステーションなどにするから、ステーションを作るのに
費用もかかるし、不届き者もでやすい。

夜中に集めれば、カラスの心配もないし、日あたりで発酵する
こともないし。

排水管の清掃

VBAのプログラミングにもめどがつき、
5時過ぎ街中のオフィスへ。

排水管の一斉清掃。ほかの部屋で順番にやっているようだ。
午後7時という約束だが、部屋にいるとわかれば早めに来るかなと思い、
玄関灯を付けておく。

たぶん、それを見たのでしょう。6時過ぎに、今からいいですかと
早めにきてくれた。

台所、風呂場、洗面所の排水管を高圧水流で清掃するらしい。

台所を見ていたが、結構奥まで届いているようだった。

職場の寮に長いこと住んだが、そこではこんな清掃は一度もなかった。

オフィスはまだできてから3年ほどだが、こんなところまで定期的に
保守するのが、長持ちさせることになるんでしょうね。

終わったぞ！と連れ合いに電話するも、電話に出ない。
まだボランティアの集会が終わっていないようだ。

一週間ぶりにWiiFit。
踏み台昇降？ステップ？で小汗をかく。なかなか満点が取れない。
早すぎても、遅すぎてもダメ。

そのあと増えたフラフープの燃焼系運動をやってみる。
これがしんどい、右回り、左回り、各？合計？3分間。

最後はふらふら、ぜいぜい言ってる所に連れ合いより電話。
それを口実に最後はキャンセル。電話がなくても最後までは
無理だったかも。

集会が終わったので家に帰るというので、こっとも帰ることにする。

夕闇も迫るのでライトをつける。ライトをつけるためにはサポートの
電源を入れる必要があり、最低限のサポートが付加されてしまう。

オフィス近くの平地では、このサポートがあると非常～に楽に
チャリが進む。でもバッテリのインディケータは最後の一つの
メモリを示している。

東山峠ではフルサポートをかける。それでもシンドイ。
と言いつつ、昨夜はセコにギヤを落としていたが、今日はトップのまま
通過した。峠を越えて頃にはインディケータは点滅を始めた。

点滅しはじめてからどの程度走れるのだろう？

何とかサポートが切れることなく、自宅に到着。
連れ合いも今帰ってきたところと、忘れた手紙を出しに行ってくる、
その間に春巻きをまいておけとご指示。

餃子を包むことはやってるが、春巻きなんてはじめての経験。
春巻きの皮が10枚。具材を10枚分に分けるのがちとめんどいだけで、
巻くのは簡単だった。男の料理！？　巻くだけじゃ料理でもないか。

感性的プログラミング

久しぶりにプログラミング。

エクセルでたくさん（1000枚超え）の表を作った（作っている最中）が、
その中から表示したい表をどうやって選択させるか？
そのインターフェースの作成。

ブロッグごとにまとめて一つのエクセルのファイルになっており、
各表はエクセルの標準のBook形式の中で「シート」になっている。
1つのエクセルのファイルには100枚から300枚程度のシートがあり、
タブ形式のシート名を頼りに、シートをめくるのは大変だ。

ということで、目次のシートを先頭に作り、
その目次から目的のシートにジャンプ！　
というのが今回のプログラミングの目標！

先月かに購入していたVBAの本を探すのに手間取ったが、研究室内を
家探しして、見つけ出す。これだけ厚い本だと探すのも楽だ。
やはり大国（ボリューム）は力だ！

マニュアル本で使えそうな関数を探す。
それなりの関数を見つけ、試してみるが、結果として何が帰ってきてるのか？
よくわからない。

プログラミングは理論でなく、感性だと思うことが多い。
わからないなら感性と想像力。こんなもんじゃろと思ってプログラムを
書いてみて、当たっていたらそれなりの結果が戻るし、外れていたら、
その結果からまた感性を働かせる。五感、六感の仕事。

本当は理知的にプログラミングしたいのですがね。
最近のマニュアル本には「全」情報が載ってないので、
プログラミングスタイルも変わってしまった。
当たって砕けろ！　気力が続くかの体力勝負！

結局出来上がったのは10行程度のプログラム。
もっと削れそうなので、半分程度にはなりそうですね。

目次で目的の表名（それがシート名になっている）を右クリックすると、
そのシートを表示する（アクティブにする）だけ。

最初はどの範囲をクリックしたら・・・とか考えていたが、
どこでもいいやと落ち着く。目次以外でもいいから、右クリックしたセルの
内容に一致するシートがあれば、そのシートを表示することにしたので
10行程度のプログラムに落ち着いた。

書き写すだけだったら１分程度ですが、
そこに落ち着くまでには数時間。単純化は大事ですね。

あとは各エクセルのブックに目次の頁を作り、マクロを貼り付けていくだけ。

最初は各都道府県をひとつのブロックと考えていたので、
47個のエクセルファイルにするつもりだったが、
このプログラムだったら、目次が数枚のシートに分かれていても
問題ないことに気づく。

ということは都道府県ごとの目次シートを作れば、
1つのファイルにまとめることも可能？
（正確にはちょっと問題もありますが）
でも、そうすると馬鹿でかいファイルになってしまうので、
適当に（ファイル用量として、読み込む時間の問題）ブロッグに
分割し、都道府県別（これも１府県、１シートとは限りませんが）
に目次シートをを付けることにする。

ということで、岡山県（地元なのでこれだけで一つ）、中国地区、
四国地区、九州・沖縄地区がほぼ完成。残りは来週にでもｍに
作ってもらおう。

成人病と薬

6月7日(土)
いい天気の土曜日。
昨夜、職場からの帰路に街中のオフィスに寄ると、今日(6日)が
排水管の清掃日に割り当てられていたらしい。以前に通知が
来ており、連れ合いに変更依頼を出しておくように言ってたのに
出すのを忘れていたらしい。

ので、今朝8時過ぎに電話を入れると、今日(7日)の午後7時と指定
された。中途半端な時間より夕方になったので、助かった。
連れ合いはボランティアの集まりがあるというので、立会いを
引き受ける。

朝は3週間ごとの定例の医者通い。
いつもの薬をもらう。効いてるのかどうかと思っていたが、
前回の血液検査の結果では、飲んでないと悪い結果が出ているので、
やっぱり薬は効いてるんですね。（当り前か？）

いつも医者に行く時には車で行ってたのだが、今日はチャリで。
昨夜充電するのを忘れていたので、下りは言うまでもなく、平地も
サポートを切って、バッテリを節約。少し汗ばむ程度で到着。
待つこともなく診察なので、血圧の値を心配していたが、
いつもより低めの値が出た。

薬をもらって、そのままチャリで研究室へ。

高松

6月6日(金)
朝方、少し雲が残っていたが、今日は久しぶりの晴れ！
ということでチャリで出勤。

2時限目　サービス院講。
グラフ出力の制御等。

11時半に少し早めに終了し、バスで駅へ。

ICOCAでは高松まで行けないそうで、ICOCAで切符購入。
駅中でランチ。

マリンライナーで高松へ。
高松駅前のホテルの会場に15分前に到着。

パワポを訂正済みのものに交換し、ほぼ1時間半ほど
しゃべり通し。終了後の相談も適当にあり、
予定通り16時ころ終了。

研究室に戻ってきたところである。
さて週末は何をしよう？