なかのにっき

＠ 元の書式をそのまま使う:

＠ 買ったものリスト:

＠ 演習試験:

＠ 実験室冷蔵庫:

＠ 往復の飛行機:

＠ vsj-ref 関連:

＠ lbc 予算関連:

＠ 新聞停止:

• 日経産業新聞 6 月分

＠ TP600X:

Package: *
Pin: release a=stable
Pin-Priority: 1000

apt-get install moge/stable fuga/stable -y

＠ Windows PC:

＠ 出張報告書:

＠ web:

＠ 石原さんに連絡:

＠ VP へ fax:

• トランジスタ技術 8 月号
• ラ講テキスト

Section "Device"
        Identifier      "Intel X4500"
        Driver          "intel"
EndSection

• 牧くんが卒研輪講の文献を再び： Optical index profile of nonuniform depth-distributed silicon nanocrystals within SiO2
• 塚本くんが The influence of C60 as intermediate on the diamond nucleation on copper substrate in HFCVD
• 日留川くんが Innovative technique for tailoring intrinsic stress in reactively sputtered piezoelectric aluminum nitride films のしかかり。

• ＃2：質問に対して、挙手での応答を求める
• ＃9：「クイズ」を出す

• 共同研究 plan のまとめと送付
• 真空展研究紹介への申込み
• 編集部会企画会議の議事録 (完全に忘れてた orz)
• 金原先生に返事
• 夏季大計算機練習帳の送信
• labo: 31 日の連絡と教科書の購入
• 数学演習の点付けと各先生への連絡
• 電源発注の手続き

• 分光計 disk からデータを読み取る 98 のプログラムは、 MTQT081 のようなファイル名を読み取ってくれなかった。 いままで 09072301 のようなのでやってたから気付かなかった。そうなのか。
• stock の状態で U: ドライブに置いた Excel ブックのマクロを 実行しようとするとセキュリティで嵌まる。 詳細は このへん 。「Visual Basic プロジェクトへのアクセスを信頼する」によって回避できた。 ふむー。
• Excel は排他ロックをかけるので、データファイルを一斉にアクセスしにいくと嵌まる。まずコピってから。

＠ Introduction to MOLFLOW+: New graphical processing unit-based Monte Carlo code for simulating molecular flows and for calculating angular coefficients in the compute unified device architecture environment:

• 広報部会の件返信
• 夏季大演習ノート作り
• セミナーの件返事
• issp web の award / summary ページの authoring

• 光学薄膜と成膜技術
• 宇宙に果てはあるか
• パリティ 8 月号
• 日経サイエンス 9 月号

• 夏季大演習ノート作り

＠ 化けなかった環境:

＠ 化けた環境:

＠ 変換エラー:

Function attendAverage(scores As Range, ofs As Integer)
    Dim count As Integer, sum As Variant
    Dim score As Variant
    
    sum = 0
    count = 0
    
    For Each score In scores
        If (score.Offset(0, -ofs) > 0) Then
            sum = sum + score
            If (score <> "") Then count = count + 1
        End If
    Next score
    attendAverage = sum / count
End Function

Function attendStdev(scores As Range, ofs As Integer)
    Dim count As Integer, sqsum As Variant, sum As Variant
    Dim score As Variant, attendvar As Variant
    
    sqsum = 0
    sum = 0
    count = 0
    
    For Each score In scores
        If (score.Offset(0, -ofs) > 0) Then
            sqsum = sqsum + score ^ 2
            sum = sum + score
            If (score <> "") Then count = count + 1
        End If
    Next score
    attendvar = sqsum / (count - 1) - sum ^ 2 / (count * (count - 1))
    attendStdev = Sqr(attendvar)
End Function

• 広報部会の件返信
• セミナーの件返事
• issp web の award / summary ページの authoring

＠ 2 限：解析 I:

＠ 3 限：解析 III:

＠ 予備:

＠ 3 限：機器分析 II:

『研究助成金“獲得”ハンドブック 』完成！