misc.log

日常茶飯事とお仕事と

ガス契約を東京ガスから東急に変更してみた

現在利用しているケーブルテレビ&インターネット接続がイッツコムで、その利用料金が少し割引になるということで2016年に電力の契約を東京電力から、東急パワーサプライの「東急でんき」に変更しました。

今回、ガスも一緒にしてみようということで、ガスの契約も東急に。というわけでこれで契約サービスの名前が「東急でんき&ガス、ガスサービス」となりました。3月の中旬に、現在の東京ガス請求書を添付した申込書を郵送、4月の中旬に下記のような案内が。

f:id:frontline:20190428231425j:plain
CDエナジーダイレクトからの案内

えっと……「CDエナジーダイレクト」って?

この画像にあるようなガス取り扱いの注意喚起チラシのほかに、ガスコンロそばに貼付できる金属製の連絡先ステッカー。そして案内状。案内状には

この度は、私どもCDエナジーダイレクトのガス取り扱い事業者である株式会社東急パワーサプライとガスのご契約をいただき誠にありがとうございます。
ガス機器の安全な使用については供給元でありますCDエナジーダイレクトが周知させていただくこととなっております。

とのこと。申込書には全くこの名前見つけられなかったのだけど、もしかして利用規程みたいな細かい字の資料があってそこに書いてあったのかな?いや、別にどこが供給していようがガスが来ればうちは困らないのだけれど、いきなり登場する社名に戸惑ってしまいます。

どうやら、東急はガスの取り次ぎ(販売代理店みたいなもの?)だけをやっていて、自社サービスのように見せているけれど実態は中部電力グループのこの「CDエナジーダイレクト」がやってるということですか……。

電力もそうだったけれど、こういうインフラが実際どのようにどんな会社や組織が絡んでいて、物理的なインフラとその内容物、それを管理するところがどう絡み合っているのか全然見えないのは正直気持ち悪いです。もう少しきちんと勉強しないと、自分の情報がどこに流れて資料などをどこが送ってくるのか全然分かりません。

電力・ガス自由化の真実

電力・ガス自由化の真実

APEX Legends 個人成績(2019年4月下旬)

眼鏡しわすれてるからだ!(ということにしておこう)

Name Played Kills Kil/Play Damages Dmg/Play
ブラッドハウンド 86 44 0.51 13792 160
ジブラルタル 174 62 0.36 22493 129
ライフライン 232 104 0.45 44268 191
パスファインダー 116 46 0.4 19744 170
オクタン 64 25 0.39 10509 164
レイス 154 71 0.46 28887 188
バンガロール 120 32 0.27 16212 135
コースティック 374 115 0.31 50134 134
ミラージュ 254 83 0.33 37136 146

IPAの研修ロードマップに従って研修しているのに大脱線する(4月24日)

エンジニア基礎 / データ表現

序盤は鳥取島根。ラクダ。講義前の会話からラクダ、鳥取、そして島根。そこから出雲大社ルートの神社仏閣でアニメ漫画多いよね、の流れ。

るるぶ鳥取 大山 蒜山高原 水木しげるロード'20 (るるぶ情報版地域)

るるぶ鳥取 大山 蒜山高原 水木しげるロード'20 (るるぶ情報版地域)

浮動小数点型の誤差実験

VBAで、Double型(倍精度浮動小数点型、データサイズ64bitの浮動小数点数)で足し算を繰り返すと誤差が出るサンプルは下記の通り。

Public Function CalcCorrectnessTest() As Double
 
    Dim result As Double
    Dim d As Double
    Dim i As Long
    
    d = 0.1
    
    For i = 1 To 10000
        result = result + d
    Next
    
    CalcCorrectnessTest = result
    
    'MsgBox result
 
End Function

Doubleの場合、1万回、0.1を加算すると「1000.00000000016」になります。逆に「Single(32bit浮動小数点型)」でやるとどうなるか、試してみても面白いかも知れません。 さらに、二進化十進数を使って誤差が出ないようにしたバージョンはこちら。

Public Function CalcCorrectnessTest() As Variant
 
    ' VariantはVBAの「何でも入るデータ型」
    Dim result As Variant
    Dim d As Variant
    Dim i As Long
    
    d = CDec(0.1)   ' CDecで数値をDecimal型(二進化十進数)に変換
    
    For i = 1 To 10000
        result = result + d
    Next
    
    CalcCorrectnessTest = result
    
End Function

Excelで操る! ここまでできる科学技術計算 第2版

Excelで操る! ここまでできる科学技術計算 第2版