2005年04月21日

電気料金

ネットワーク接続環境の向上により、うちの自宅のPCは最近いつも電源を入れてあって、外出先からでもアクセスできるようにしてある。

ただその結果、これまで東京の電気代は結構高くついていた。

関西に引っ越してきたついでに、深夜電力が安いプランにしてみようかと思って、ちょっとIGOR Proに計算させてみた。

これは要するに、ある電力の機器を24時間常時電源を入れてある場合の1ヶ月の電気代のグラフで、関西電力の各種プランを適用してある。

まぁ日常生活24時間通電機器だけじゃないので、週3時間深夜電力帯に1kWの乾燥機を動かしたときの料金とか、1kWのエアコンを22時〜1時と7時〜9時の間動かした時のグラフも書いてみた。

こうして比べてみると、はぴeタイムって、余程電力消費が激しい機器じゃないと常時ONの機器には向いていないのね。

そして結局のところ、PCが消費しそうな400Wくらいの電力量だと、従量電灯Aと時間帯別電灯のどちらが安いかというのは結構微妙。

こんど時間帯別電灯に料金プランを変えて試してみようかなぁ…。

なお、計算させるのに使ったIgorマクロはこんな感じ。

Function CalcNormalPlus(PowerW, TotalPrice, PlusWh)
	Wave PowerW, TotalPrice
	Variable PlusWh
	Variable TotalWh
	Variable n = 0
	Do
		TotalWh = PowerW[n] * 24 * 31 + PlusWh
		if(TotalWh>300000)
			TotalPrice[n] = 307.65 + 18.17 * 105 + 23.38 * 180 + 24.89 * (TotalWh/1000 - 300)
		elseif(TotalWh>120000)
			TotalPrice[n] = 307.65 + 18.17 * 105 + 23.38 * (TotalWh/1000 - 120)
		elseif(TotalWh>15000)
			TotalPrice[n] = 307.65 + 18.17 * (TotalWh/1000 - 15)
		else
			TotalPrice[n] = 307.65
		endif
		n = n + 1
	While(n<numpnts(PowerW))
EndMacro

Function CalcHappyPlus(PowerW, TotalPrice, PlusNightWh, PlusDayTimeWh, PlusLivingTimeWh)
	Wave PowerW, TotalPrice
	Variable PlusNightWh, PlusDayTimeWh, PlusLivingTimeWh
	Variable NightWh, DayTimeWh, LivingTimeWh
	Variable n = 0
	Do
		NightWh = PowerW[n] * 8 * 31 +PlusNightWh
		DayTimeWh = PowerW[n] * 7 * (31-8) +PlusDayTimeWh
		LivingTimeWh = PowerW[n] * (9 * (31-8) + 16 * 8) +PlusLivingTimeWh
		TotalPrice[n] = 2100 + NightWh/ 1000 * 6.8 + DayTimeWh/ 1000 * 26.68 + LivingTimeWh/ 1000 * 20.38
		n = n + 1
	While(n<numpnts(PowerW))
EndMacro

Function CalcHappySummerPlus(PowerW, TotalPrice, PlusNightWh, PlusDayTimeWh, PlusLivingTimeWh)
	Wave PowerW, TotalPrice
	Variable PlusNightWh, PlusDayTimeWh, PlusLivingTimeWh
	Variable NightWh, DayTimeWh, LivingTimeWh
	Variable n = 0
	Do
		NightWh = PowerW[n] * 8 * 31 +PlusNightWh
		DayTimeWh = PowerW[n] * 7 * (31-8) +PlusDayTimeWh
		LivingTimeWh = PowerW[n] * (9 * (31-8) + 16 * 8) +PlusLivingTimeWh
		TotalPrice[n] = 2100 + NightWh/ 1000 * 6.8 + DayTimeWh/ 1000 * 29.35 + LivingTimeWh/ 1000 * 20.38
		n = n + 1
	While(n<numpnts(PowerW))
EndMacro

Function CalcNightPlanPlus(PowerW, TotalPrice, PlusNightWh, PlusDayTimeWh)
	Wave PowerW, TotalPrice
	Variable PlusNightWh, PlusDayTimeWh
	Variable NightWh, DayTimeWh
	Variable n = 0
	Do
		NightWh = PowerW[n] * 8 * 31 + PlusNightWh
		DayTimeWh = PowerW[n] *16 * 31 + PlusDayTimeWh
		if(DayTimeWh>230000)
			TotalPrice[n] = 6.8 * NightWh/1000 + 20.22 * 90 + 26.16 * 140 + 27.76 * (DayTimeWh/1000 - 230)
		elseif(DayTimeWh>90000)
			TotalPrice[n] = 6.8 * NightWh/1000 + 20.22 * 90 + 26.16 * (DayTimeWh/1000 - 90)
		else 
			TotalPrice[n] = 6.8 * NightWh/1000 + 20.22 * DayTimeWh/1000
		endif
		TotalPrice[n] = TotalPrice[n] +1155
		n = n + 1
	While(n<numpnts(PowerW))
EndMacro
投稿者 nomoto : 2005年04月21日 23:59 | いろいろ
コメント

おひさしぶり。(って誰だかわかるかな?名前は明示しないので察してください。)
私も最近三鷹で念願の一人暮らしを始めました。時間帯別料金、ちょっと惹かれたんだけれど、問い合わせたところ、1年単位での契約しか受け付けないとのこと。ちょっとお試し、というわけにはいかないようなのであきらめました。関西では違うのかな?

Posted by: IT : 2005年05月13日 21:14

こんにちは。
おひさしぶり…って、えーと誰だろう誰だろう、一体誰なんだろう…。
全然わかりません。
ヒントください。

Posted by: のもと : 2005年05月13日 22:15

遅ればせながらD取得おめでとうございます。
えーと、
・九段下でたいへん長いことお世話になりました。
・本郷にもずいぶん長居しました。その割には成果なし。
・イニシャルから察してください。
こんなもんでどうでしょう。
こんな私の名前でも検索してみるものずきな人もいるらしく、引っかかっちゃうもんでねえ。

メアドもspamの原因となるんで失礼させてもらいます。(って私からDM出せばいいのか)

Posted by: IT : 2005年05月20日 01:44

私たちの安いモンクレールの販売店へようこそ。我々はファッショナブルなモンクレール50%-60%の割引を提供しています、豪華なモンクレールのコート、完璧なモンクレール のセーターを提供しています。その中でも販売のためのモンクレールは、最も素晴らしい ...

Posted by: 激安モンクレール販売 : 2012年11月13日 02:21

お世話になります。とても良い記事ですね。
モンクレール ダウン http://www.japan2moncler.com

Posted by: モンクレール ダウン : 2013年01月11日 23:46

カッコいい!興味をそそりますね(^m^)
MONCLER ダウン http://www.japan2moncler.com

Posted by: MONCLER ダウン : 2013年01月14日 21:18

突然訪問します失礼しました。あなたのブログはとてもすばらしいです、本当に感心しました!
モンクレール ダウン http://www.japan2moncler.com

Posted by: モンクレール ダウン : 2013年01月16日 17:05

今日は〜^^またブログ覗かせていただきました。よろしくお願いします。
MONCLER ダウン http://www.japan2moncler.com

Posted by: MONCLER ダウン : 2013年01月19日 02:24

はじめまして。突然のコメント。失礼しました。
モンクレール ダウン http://www.japan2moncler.com

Posted by: モンクレール ダウン : 2013年01月21日 16:34
コメントする









名前、アドレスを登録しますか?