LaTeXでenumerateを使うとき、デフォルトだと項目間の行間が結構広くて, 文章を書くときにちょっとブサイクになってしまいます。

（論文なんかを書いているとき、特にそう思います。僕だけ・・・？？）

そんなときは、 \setlength{\itemep}{Xcm} を使えば、行間を調整できます。

   1  \begin{enumerate}
   2      \setlength{\itemsep}{0cm} % この場合、行間が0cm
   3      \item 1番目の項目
   4      \item 2番目の項目
   5             ・
   6             ・
   7             ・
   8  \end{enumerate}

所属している研究室が絡んでいる国際会議があって、そこの準備をしてきました。

任された仕事は、良く分からない音響・照明機材の操作や会場の準備などさまざまあったのですが、ここでは汎用性の高い無線ルータの設置術を書きたいと思います。

これから書くことは、僕が考えた理想的なスケジュールとなっています。

たぶん、スケジュール通りに進むことはないと思うので、あしからず・・・。

学会1週間前

無線ルータを調達し、設定をしておきます。

設定は、会場を使うには会場費を支払わないといけない場合があるため、自分の机などで行います。

主な設定内容は、

• SSID
• キー
• DHCP接続数 です。

SSID＆キーは学会の名前、場所にちなんだものをつけておくと良いのではないでしょうか。

今までに参加した学会も、だいたい学会の名前だったりしました。

例)

• SSID: xxgakkai-2009
• キー: XXkyoto2009

これらSSID＆キーは何らかの方法を使って、参加者にアナウンスします。 （僕の場合は、研究室の秘書さんを通じて、参加者にアナウンスしていただきました。）

そして、DHCPでの接続数は参加人数に合わせて変更しておきます。1週間前になると、だいたいの参加人数の見込みがわかると思うので。

小さい教室を複数使って行う学会では、教室のキャパシティによってDHCPの接続数を変更すると良いと思います。

最後に、ルータの設定をいじられないように、管理者パスワードはランダムにつけておくのが良いと思います。

ランダムなパスワードをつけるには、n文字の半角英数文字列を生成する を使ってみてください。

簡単に設定しましたが、セキュリティがザルなのが残念なところ・・・。

あまり意味ないですが、any接続拒否とかにしておくと良いかもしれないですね・・・。

気休めですが・・・。

学会前日

看板の設置などにまぎれて、設定内容の確認をさせてもらいます。

僕の場合は、1時間だけ会場をお借りして作業を行いました。

ここでの確認内容は、

• ネットへの接続
• チャンネルの設定

ネットへの接続は必須です。つながらないと話になりません。

チャンネルは、他に無線ルータが設置されていると迷惑をかけることになるかもしれないので、バッティングしないように設定しておきましょう。

確認が済んだら、撤収しましょう。

置いたままにしてると、なくなるかもしれないので・・・。

学会当日

朝早くから出むいて、設置します。

そして、最後の確認を行いましょう。

あとは、クレームが出てこないように祈っていましょう。 （国際会議だと、英語で捲し立てられて怖いです。）

実際に学会の準備をしてみて・・・

上に書いたようにスケジュールが進むことはないですね・・・このように進めば、理想的なのですが・・・。

僕の場合、会場のLANを使うには申請がいったのですが、事務処理をしてくれるところで手違いがあって、ネットワークの制御をしている大元のところで設定を失敗してたらしく、どうしようもない状況になってしまいました。

（おかげで、僕は英語で捲し立てられました・・・。）

それと、やっぱりセキュリティがザルなのが気になりました。

最近はUSBメモリとかが激安なので、その中にSSIDとキーをテキストで保存しておいて、学会のお土産として配布するのがいいかもしれません。

WPA-AESで16進数の64桁の文字列をキーに使っていても、コピー&ペーストで済みますし、参加者に連絡する手間も省けると思うので。

学会によっては、名札の裏に個人のアカウントを発行して、それを使ってインターネット接続するような場合もあるそうです。

今度準備に関わるときは、いろいろと提案してみよう。

以上、学会での無線ルータの設置でした。

諸々の事情があり、最近Windowsを使うはめになってるのですが、TeX環境がまったくインストールされていなかったので、環境整備しています。

そこで、せっかくなので OMakeを使って継続ビルド をしたいと思います。

Windowsを良く使ってる人の参考になれば。この時期は卒論頑張ってる人が多いと思うので。

（Windowsを普段あまり使わない僕がいうのもなんですが・・・）

参考

• OMake つかって LaTeX コンパイルしたら簡単すぎて身長が5cm伸びた - 日記を書く[＝ _ ≠]はやみずさん

身長が5cm伸びて、念願の170cm超えです！

用意するもの

• Windowsが入ったPC
• OMakeインストーラ (The OMake build systemからダウンロード)

手順

インストールする

The OMake build systemからダウンロードしてきたインストーラを使ってインストールします。

何も考えずにOKとかNextみたいなボタンをクリックすれば大丈夫です。

使ってみる

上に挙げた hayamizさんの記事の手順そのまま実行していきます。

OMakefileとOmakerootの作成

まず、コマンドプロンプトを開いて、作業ディレクトリで omake --install とします。

   1  C:\・・・\作業ディレクトリ>omake --install
   2  *** omake: creating OMakeroot
   3  *** omake: creating OMakefile
   4  *** omake: project files OMakefile and OMakeroot have been installed
   5  *** omake: you should edit these files before continuing

これで、OMakefileとOMakerootが作業ディレクトリに作成されます。

OMakefileの編集

ファイルの内容を消して、まるまるコピペしてください。

   1  LATEX = platex
   2  
   3  LaTeXDocument(main, main)
   4  
   5  .DEFAULT: main.dvi

これで、TeXファイルを保存するたびに、ビルドされ、DVIファイルが作成されます。

ついでにPDFも作成したいときは、

   1  LATEX = platex
   2  DVIPDFM = dvipdfmx
   3  
   4  LaTeXDocument(main, main)
   5  
   6  .DEFAULT: main.pdf main.dvi

としてください。

OMake起動！

コマンドプロンプトで omake コマンドを実行します。

   1  C:\・・・\作業ディレクトリ>omake -P --verbose
   2  *** omake: reading OMakefiles
   3  --- Checking for latex... (found c:\usr\local\bin\latex.exe)
   4  --- Checking for uname... (found c:\Program Files\Git\bin\uname.exe)
   5  --- Checking LaTeX capabilities... (tetex2 mode enabled)
   6  *** omake: finished reading OMakefiles (4.14 sec)
   7  - scan . scan-latex-main.tex
   8  + <compute 1 value dependencies>
   9  - scan . scan-latex-main.tex
  10  + Shell.echo()
  11       | Shell.run-latex(stdout-to-stderr platex -file-line-error '-output-comment
  12  =LaTeX Output (built with OMake)' -recorder main.tex)
  13  This is pTeXk, Version 3.141592-p3.1.4 (sjis) (Web2C 7.5.3)
  14  
  15  　・
  16  　・
  17  　・
  18  

起動すれば、あとはTeXファイルを編集し、保存するだけです。

これで、編集→保存→ビルド→編集→保存→ビルド→・・・というわずらわしいビルドの手間が省けます。

ちなみに・・・

   1  --- Checking for uname... (found c:\Program Files\Git\bin\uname.exe)

とか出ているので、もしかしたら、 uname.exe が必要なのかもしれません。 僕の環境では、Gitをインストールしたついでに入っていたみたいです。

これは、ついでにバージョン管理もしろってことですね！

まとめ

• OMakeすばらしい！
• Linuxと違って、Windowsはインストールがめんどくさい
• 複数ファイルのときのビルドは、今後の課題

最近、僕が作ってる某学会のシステムのコードをそのままコピペ。

ここでは都合上「アプリケーションの実行パス」となっていますが、気にしないでください。

   1  ' プロシージャ: Function
   2  ' 名前        : GetAppExecPath
   3  ' 機能        : アプリケーションの実行パスを取得する
   4  ' 引数        : なし
   5  ' 戻り値      : String
   6  ' 備考        : なし
   7  Public Function GetAppExecPath() As String
   8      
   9      GetAppExecPath = CurrentProject.Path & "\"
  10  
  11  End Function

たとえば、開いているデータベースファイルが "C:\Documents and Settings\y_tsuda\My Documents\test.mdb" だとすると、"C:\Documents and Settings\y_tsuda\My Documents\" を返してくれます。

開いているデータベースがどこのディレクトリにあるのかを取得するには、

   1  'C:\Documents and Settings\y_tsuda\My Documents
   2  CurrentProject.Path 

を使います。

ただ、このままだと最後に \ がついていないので、

   1  'C:\Documents and Settings\y_tsuda\My Documents\ <- \が入る
   2  CurrentProject.Path & "\" 

としておくのがいろいろと都合がいいと思います。

この CurrentProject オブジェクトには現在開いているデータベースについての情報が入ってそう(名前からして・・・)なので、いろいろと見てみると面白いかもしれません。

[Access VBA] 任意のコマンドを実行するで書いた、Shell関数を使ったVBAでの任意のコマンドの実行方法は非同期なものだと知りました。

Shell関数は任意のコマンドを実行し、コマンドの終了を待たずにShell関数の呼び出し以降のステートメントが実行されていきます。

それではあまりうれしくないときがあるので、同期実行する方法を以下に示します。

この方法を使うと、呼び出したコマンドが終了してから、以降のステートメントが実行されていきます。

以下、ソースコード。

   1  Dim strShellCommand As String     ' シェルコマンド
   2  Dim objWSH As Object              ' WSH
   3  
   4  strShellCommand = " "    ' 実行したいコマンド
   5      
   6  ' WSHを使ってコマンドを実行する
   7  Set objWSH = CreateObject("WScript.Shell")
   8  objWSH.Run strShellCommand, vbNormalFocus, True ' 第3引数がTrueなら、同期実行
   9  Set objWSH = Nothing

ソースを見るとなんとなくわかるかもしれませんが、WSHを使います。

第1引数は、コマンドを入れてあげます。

第2引数は、WindowStyleを入れてあげます。ここに入る値は、Shell関数のと同じです。

第3引数は、同期実行ならTrue、非同期実行ならFalseを入れてあげます。

See Also

• VBScript&JScript Tips - プログラムを実行する、ファイルやフォルダを開く

   1  Function FunctionName(引数) As 型
   2      FunctionName = 返したい値  '←これがReturnに相当するらしい。
   3  End Function

らしい・・・。

たとえば、Exampleという名前のFunctionがあるとすると、最後にExampleという変数に値を代入することによってReturnできる。

VisualBasicではReturnってあった気が・・・。 これがVBAのワナなのか・・・。

Access2003を今使ってるけど、2007やったらReturnできたりするんやろうか。

Access VBAから任意のコマンドを実行したいとき、 Shell 関数を使います。

Shell関数の定義は、

   1  Shell(PathName 
   2        [, WindowStyle As VbAppWinStyle = vbMinimizedFocus]
   3       ) As Double

です。

WindowStyleは省略可能で、省略した場合は、vbMinimizedFocusという値をとります。

WindowStyleは他には以下のような種類があります。

WindowStyleの種類

種類	説明
vbHide	非表示
vbMaximizedFocus	最大化、フォーカスする
vbMinimizedFocus	最小化、フォーカスする
vbMinimizedNoFocus	最小化、フォーカスしない
vbNormalFocus	普通、フォーカスする
vbNormalNoFocus	普通、フォーカスしない

たとえば、

   1  Private Sub 実行_Click()
   2      Call Shell("notepad", vbMaximizedFocus)
   3  End Sub

というコードを書くと、notepadを実行し、ウィンドウは最大化された状態で表示され、フォーカスされます。

grepコマンドの検索結果を色付けできるなんて！の続き。

grepとlessの組み合わせはよくしますよね。

しかし、さきの記事の方法では、lessでの出力がうまく色づけされません。

うまく色づけするには、以下が必要です。

• grepのオプションで、 --color=always を使う
• lessのオプションで、 -R を使う

1つ目は、grepの検索結果を常に色づけるもの。 2つ目は、lessでの表示でエスケープシーケンスを解釈させるもの。

この2つを設定していれば、うまく色づけされた結果をlessで見ることができます。

何気なくman grepしたときに知りました。

今まで完璧にスルーしてましたね。

   1  $ man grep
   2  ・
   3  ・
   4         --colour[=WHEN], --color[=WHEN]
   5                Surround  the matching string with the marker
   6                find in GREP_COLOR environment variable. WHEN 
   7                may be ‘never’, ‘always’, or ‘auto’
   8  ・
   9  ・

見つけたときは、「なん・・・だと・・・？」となってしまいました。

実際に色付けしてみると、こんな感じになります。

普段からよく使ってるコマンドの man を見たりすると、何か新しい気づきがあるかも・・・？

友人のisanoくんが「Rubyわかんねー」と言いながら頑張って解いたみたいなので、僕もRubyで書いてみる。

• 算数にチャレンジ！！ 第624回問題 - い～さねっと
• 算数にチャレンジ！！
• 算数にチャレンジ！！ 第624回問題 (← おそらく、後々見れるようになるかと)

問題内容を引用。

１～５１２の数の書かれたカードが１枚ずつ、左から小さい順に、「１，２，３，４，・・・，５１１，５１２」と並んでいます。いま、次のような作業を行うことにします。

ア. 前から奇数番目のカードをすべて取り除く

イ. 前から偶数番目のカードをすべて取り除く

　まず、この作業を、ア→イ→ア→イ→・・・の順に、カードが残り１枚になるまで繰り返して行うことにします。

　このとき、最後に残るカードに書かれた数字を答えてください。

isanoくんが後で見てもわかるように、丁寧にコメントまでつけちゃうぜ。

以下、僕の書いたコード

   1  #/usr/bin/env ruby
   2  
   3  # Integerクラスを拡張する
   4  class Integer
   5   
   6    # 値が偶数かどうかを調べる
   7    # 偶数 -> true
   8    # 奇数 -> false
   9    def even?
  10      return (self % 2).zero?
  11    end
  12  
  13  end
  14  
  15  numbers = (1..512).to_a  
  16  
  17  # 以下, 指定された通りにカードを取り除いていくコード
  18  # (ア) 奇数番目のカードを抜く = 添え字が偶数のカードを抜く
  19  # (イ) 偶数番目のカードを抜く = 添え字が奇数のカードを抜く
  20  
  21  flag = true    # (ア)のときtrue, (イ)のときfalse. 最初は(ア)
  22  
  23  # カードが1枚になるまで続ける
  24  while numbers.size > 1 do
  25  
  26    # Arrayで何かを取り除く操作をするのは、rejectが簡単
  27    # ここではrejectの破壊的メソッドreject!を使う
  28    numbers.reject!{|i| numbers.index(i).even? == flag }
  29  
  30    flag = !flag # (ア)/(イ)の入れ替え
  31  
  32  end
  33  
  34  puts numbers
  35  #=> 342

こんなもんでどうや！！

追記 (2008/12/02 16:35) 気づけばいろんな人がやってた。

• 算数にチャレンジ！ - はこべにっき@bkc - bkcグループ
• 算数にチャレンジの問題を解いてみた - まめ畑
• RubyとかPerlとかゆるふわで困る - UDONCHAN

Ritsなはてなーばっかで困る。