#!/usr/bin/perl # Calculates ElecticVehicle building and usage costs... # # Copyright (C) 2008 Sippo Laisaari sippo@laisaari.com # some modifications (C) 2008 Jani Lahti jani.lahti at iki.fi # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, version 3 of the License # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # require "cgi-lib.pl"; &ReadParse(*input); $hinta=$input{'hinta'}; $kilometrit=$input{'kilometrit'}; $polttoaine=$input{'polttoaine'}; $litrahinta=$input{'litrahinta'}; $kulutus=$input{'kulutus'}; $sahkonhinta=$input{'sahkonhinta'}; $p_nousu=$input{'p_nousu'}; $s_nousu=$input{'s_nousu'}; # # ok, let's calculate # print "Content-type: text/html\n\n"; print " EV-laskelma "; # # maahantuontilaskelma # $rahti=400; if ($hinta > 0) { $hinta=$hinta+$rahti; } else { $hinta=0; } $tulli=$hinta*0.1; $alvar=$tulli; $alv=int($alvar*0.22); $mthinta=$alv+$alvar+$hinta; print "


Auton maahantuonti

Auton ostohinta Saksassa + rahti n.400 € $hinta €
Autovero? 10% $tulli €
ALV:n perusteena käytettävä arvo $alvar €
ALV 22% $alv €
Vero? ja maahantuonnin arvonlisävero yhteensä $mthinta €


"; # # konversiolaskelma # @energiantarve=(18750,28125,37500,46875,56250); $ajot=300; if ($kilometrit/365 < 270){$ajot=300;} if ($kilometrit/365 < 220){$ajot=250;} if ($kilometrit/365 < 170){$ajot=200;} if ($kilometrit/365 < 120){$ajot=150;} if ($kilometrit/365 < 70){$ajot=100;} $ind=($ajot/50)-2; $hyvitys=-500; $osat=5000; $asennus=1500; $akusto=$ajot*104.16; $konvhinta=$hyvitys+$osat+$asennus+$akusto; $kokhinta=$mthinta+$konvhinta; $keskim_ajo=int($kilometrit/365); print "

Auton konvertointi sähköautoksi

Keskimääräinen päivittäinen ajomatka / lataus $keskim_ajo km
Akuston energiatarve $energiantarve[$ind] Wh
Auton maahantuontihinta $mthinta €
Arvioitu hyvitys moottorista $hyvitys €
Asennettavat sähköosat $osat €
Asennuksen kustannukset $asennus €
Akuston hinta $akusto € (maksimi ajomatka tällä akustolla n. $ajot km/lataus)
Konvertoinnin hinta yhteensä $konvhinta €
 
Auton kokonaishinta yhteensä $kokhinta €



"; # # käyttökustannukset # $vuotuisetkm=$kilometrit; $kWh_vuodessa=($vuotuisetkm/100)*25; $bensat_vuodessa=($vuotuisetkm/100)*$kulutus; $s_nousupros=($s_nousu/100)+1; $p_nousupros=($p_nousu/100)+1; print "

Energiakustannukset - EV vs $polttoaine auto

"; for($x=0;$x<10;$x++) { $sahkomaksut=int($kWh_vuodessa*$sahkonhinta); $bensamaksut=int($bensat_vuodessa*$litrahinta); $saasto=$bensamaksut-$sahkomaksut; $sahkoyht=$sahkoyht+$sahkomaksut; $bensayht=$bensayht+$bensamaksut; $saastoyht=$saastoyht+$saasto; if($polttoaine == "bensa"){ $paastot=int(2.350*$bensat_vuodessa); } else { $paastot=int(2.650*$bensat_vuodessa); } $paastot_yht=$paastot_yht+$paastot; $vuosi=$x+1; # huomioidaan akuston vaihtamistarve ====================================== # alla oleva kaava on ei vastaa todellisuutta, mutta mahtuu yhdelle riville # if ($vuosi % 6 == 0) { $saastoyht=$saastoyht/2; } # huomioidaan akuston vaihtamistarve ====================================== print " "; # hinnankorotukset $sahkonhinta=$sahkonhinta*$s_nousupros; $litrahinta=$litrahinta*$p_nousupros; } #print " # # # # # # # #"; print "
  Ajokilometrit/vuosi $vuotuisetkm   Ajokilometrit/vuosi $vuotuisetkm  
  Sähköenergiaa $kWh_vuodessa kWh/vuosi   Polttoainetta $bensat_vuodessa litraa/vuosi  
  Sähköauto (25 kWh/100 km) Säästö (kumulatiivinen säästö) Nykyinen ${polttoaine}-autosi ja sen CO2-päästöt (kumulatiivinen)
$vuosi. vuosi
 $sahkomaksut € ($sahkoyht €) Säästö: $saasto € ($saastoyht €) $bensamaksut € ($bensayht &euro) $paastot kg ($paastot_yht kg)
YHTEENSÄ
# 		 $sahkoyht €Sähköetu: $saastoyht €$bensayht €
"; # print "Huomioi 5 vuoden käytön jälkeen tapahtuva akuston vaihto, joka vaikuttaa kumulatiiviseen säästöön. Muita huoltokustannuksia ei laskelmassa verrata."; print "

Tee uusi laskelma
Takaisin sähköautot.fi sivuille"; print "\n"; exit 0;