PSIMのDLL

PSIMのDLLを作成
C言語で移動平均を用いた実効値計算のブロックを
作成。

// 変数はどうもdoubleしかだめみたい
double sum;
double ave;
static double i;
static double count;
static double moving[100];

// 200us毎にデータを移動平均へ取り込む
if (i==200)
{
i=0;
moving[count] = in[0] ;
count++;

// 配列100個に入力データを取り込む
if (count == 100)
{
count = 0;
}
}

// シミュレーションの刻み時間は1us
i++;

// 配列100個のデータをすべて加算する
for (sum=0.0;sum<100.0;sum++)
{
ave = ave + moving[sum] ;
}

// 配列のすべてのデータを加算した結果をデータ数で除して移動平均
out[0] = sqrt(ave / 100.0) ;

「怪奇現象」について

お得意さまより、「怪奇現象発生」との報告を受けて調査を行った。ある日突然装置が暴走して不調チェックも行わず製品を出荷してしまったため、大クレームを引き起こしたらしい。また、その工場の電話などによく分からない人の声が入ってくるらしい。
おそらくだが、「無線障害」ではなかろうかと思う。再現をさせるためアマチュア無線をその工場へ持っていき、7MHzから28MHzのAM波・SSB波にて実験を行った（声が直接電話に乗ったのなら、AM波系統と考えられるから）。再現できなかった。近所に迷惑をかけるといけないので、たぶんだが、ダミーロードを出力に接続したのと、出力を抑制したためと考えている。アンテナを接続してもっと出力をあげれば再現できたかもしれない。でも他の製品の装置に影響があると不味いので、ここまでの実験とした。
その他の調査結果として「S相とアース線との間の電圧（対地電圧）が80Vであった」「絶縁トランス→ノイズフィルタ→シーケンサの接続になっていたが、ノイズフィルタの接続が、トランス側がINでシーケンサ側がOUTになっていた」
対地電圧が発生していたのは単にアースが取れていなかったのが原因。電源側のファクトライン接続点のジョイントがうまく締まっていなかったので、これを閉めたら電圧2Vになった。ノイズフィルタは基本的にOUT側（コンデンサが２個直列接続になっていて、その接続点にアースがつながっている構成）がノイズ源、IN側にはノイズを送らない構造となっている。この接続方法だと、シーケンサがノイズ源で電源側にノイズを送らないという思想に設計されている。たぶん意図としては電源側のノイズをシーケンサに送らないためではないのだろうか。接続方法が逆と思う。工作機メーカの意図を知りたいものである。たぶん何百台もお得意さまの会社にこの工作機を納品しているため、正規の方向に変えるのはかなりの費用を要するので、なんだかんだと理屈をこねて「自分は正しい」と主張するのであろうけれど。
ノイズシミュレータのレンタルを依頼したので、来年早々には再度実験を行う予定である。
町の電気屋さんの仕事内容の一部分の紹介でした。

イタチの被害

自作孵卵器にて孵化（スーパーの有精卵）させたヒヨコがイタチの被害に遭いました。11/17に生まれたヒヨコですが、２羽が12/22に絶命し、１羽が本日12/24に被害に遭いました。12/22の被害の際、1.3mほどの足場が無い台に乗せて対策したのですが、このくらいの高さだとジャンプして檻にしがみつき、檻の針金をこじ開けて進入するみたいです。制御盤の架台が余っていたので、これに焼き肉用の網を取付し、その他の面はベニヤ板で急ごしらえの鳥小屋を制作したためこんな時間になりました。残ったヒヨコは雄１羽のみ。こいつを囮にして復讐してやります。本当にかわいそうなことをしました。さらにその事件現場跡を発見した子供達にはかなりのトラウマを植え付けてしまった気がします。血まみれ羽が散乱といった凄惨な光景でした。（夜間は鶏小屋を倉庫に入れていたので、倉庫がすごいことになった。天井のスキマから進入されたみたい）

日誌を始めた

昨日、大学院合格書が届いた。手続きの書類を書き、入学金を明日振り込む予定。
愛工大の修士課程出身者は入学金が半額となると書いてあった。１０万円（本来は２０万）である。
授業料は「大学院奨学生審査」というのがあり、この審査が通れば、半額になるらしい。１月中には審査結果が届くので、是非とも「成績優秀者」と認定してほしいものである。
これより日記代わりに研究日報を記録としてここに書き留めることとする。