? my ($company,$company_en,$update, $kyoukyuu_kw, $kyoukyuu_time,$maxpower_kw,$maxpower_time,$today_persent,$maxupdate,$y,$m,$d,$t,$results,$dates) = @_;
= $company ?>の= $y ?>年= $m ?>月= $d ?>日 = $t+0 ?>時~= $t+5 ?>時台の5分刻み電力使用状況
 |
更新日時: | = $update ?> |
最大供給量: | = $kyoukyuu_kw ?>万kW (= $kyoukyuu_time ?>) |
予想最大電力: | = $maxpower_kw ?>万kW (= $maxpower_time ?>) |
最大使用率: | = $today_persent ?>% |
予想更新日時: | = $maxupdate ?> |
日付選択: |
|
|
? if ($company eq '九州電力') {
日付 | 時間 | 実績 | 使用率 |
日付 | 時間 | 実績 | 使用率 |
日付 | 時間 | 実績 | 使用率 |
? }
? for my $z (0 .. 23) {
? for my $i (0 .. 2) { my $r = $results->[$i * 24 + $z + $t * 12];
? my $bgcolor;
? if ($r->{persent} >= 99) {
? $bgcolor="#f8696b";
? } elsif($r->{persent} >= 97) {
? $bgcolor="#fa8370";
? } elsif($r->{persent} >= 95) {
? $bgcolor="#fb9d75";
? } elsif($r->{persent} >= 93) {
? $bgcolor="#fdb87b";
? } elsif($r->{persent} >= 90) {
? $bgcolor="#fed280";
? } elsif($r->{persent} >= 86) {
? $bgcolor="#ffeb84";
? } elsif($r->{persent} >= 83) {
? $bgcolor="#dfe282";
? } elsif($r->{persent} >= 80) {
? $bgcolor="#c0d980";
? } elsif($r->{persent} >= 75) {
? $bgcolor="#a1d07e";
? } elsif($r->{persent} >= 70) {
? $bgcolor="#82c77c";
? } else {
? $bgcolor="#63be7b";
? }
= $r->{date} ?>
|
= $r->{time} ?>
|
? if ($r->{today_power} ne 0) {
= $r->{today_power} ?>万kW
? } else {
未登録
? }
|
? if ($r->{persent} ne 0) {
= $r->{persent} ?>%
? }
|
? }
? }
[戻る]
[九州電力のグラフへ]