不定期更新のもと日誌

電気料金

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

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

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

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

まぁ日常生活２４時間通電機器だけじゃないので、週３時間深夜電力帯に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