車の給油量、走行距離などから CO2排出量、無駄な消費ガソリンなどを計算します。
◯html表示 B.計算プログラム 車の給油量、走行距離などから CO2排出量、無駄な消費ガソリンなどを計算します。 * 車の給油量(L) [ ] * その給油量での走行距離(km) [ ] * ガソリン単価(円/L) [ ] * アイドリングストップ(分/km) [ ] ※目安: 混雑市街...1.2 空いた市街...0.8〜0.4 しない...0 * 急発進回数(回/km) [ ] ※目安: 急発進癖の人...0.5〜2 [計算] [リセット] ◯rbファイル(keisan.rb) #!/usr/bin/env ruby $KCODE = 'e' require 'cgi' #CGIの機能をロードする cgi = CGI.new('html4') #html4(Strict)でHTMLを生成する print"Content-type: text/html; charset=EUC-jp\n\n" #HTMLとして出力したいので、Content-typeは必ずtext/htmlにする #文字コードは日本語(EUC-jp) refuel = cgi["re"] way = cgi["wa"] gas = cgi["ga"] idling = cgi["id"] start = cgi["st"] #htmlからもらってきた値をそれぞれ代入 #p refuel #p way #p gas #p idling #p start mileage = way.to_f / refuel.to_f #車の燃費(km/L) = 走行距離(km) ÷ 給油量(L) discharge = 2.31 / mileage #1km走行でのCO2排出量(kg-CO2/km) = 二酸化炭素排出係数(kg-CO2/L) ÷ 燃費(km/L) wood = 2.31 * refuel.to_f / 1.77 * (44 / 12) #給油量相当のCO2吸収に必要な育成林(平方m/年) # = 二酸化炭素排出係数 × 給油量(L) ÷ 育成林換算係数(t-C/ha) × (44(CO2分子量)/12(C分子量)) use1 = idling.to_f * 0.13 #アイドリングストップの消費ガソリン(L) # = アイドリングを1分間した場合の消費ガソリン(L) × アイドリングをした時間(分/km) use2 = start.to_f * 0.028 #急発進の消費ガソリン(L) # = 急発進を1分間した場合の消費ガソリン(L) × 急発進をした回数(回/km) useall = use1 + use2 #アイドリングストップと急発進で無駄に消費したガソリン(L) # = アイドリングの消費ガソリン(L) ＋ 急発進の消費ガソリン(L) money = gas.to_f * useall #無駄に消費したガソリンの代金(円) # = ガソリン単価(円/L) × 無駄に消費したガソリン(L) #なお、二酸化炭素排出係数は2.31kg-CO2/L、 #育成林換算係数は1.77t-C/haで計算している。 #アイドリングは1分間で0.13Lの消費、急発進は1回で0.028Lの消費となる(日本自動車工業会資料)。 print"\n" #ここからhtml形式で結果を出力する print"\n" print"| 1km走行時のCO2排出量 :%19.3f(kg-CO2/km) |
| 給油量相当のCO2吸収に必要な育成林 :%7.2f(平方m/年) |
| 今の運転の無駄な消費ガソリン :%19.3f(L) |
| 無駄な消費ガソリンの代金 :%22.2f(円) |