//------------------------------------------------------------------------------
TrackName{"質量<->エネルギー換算"}
Copyright{"柚姫みずか"}
MetaText{"2013/11/04"}
/*
お久しぶり(*･ω･)ﾉ

今回は曲じゃありません。
サクラの間違った…もとい新しい使い方を開拓しようと思ってアインシュタインの式から
質量とエネルギーを換算するスクリプトを作ってみました。
すぐ桁あふれするし精度あんまし良くないですけど。

*Twitter*
https://twitter.com/limemizuka/

*HP*
http://www.hozugawa.net/mizuka/
*/

//パラメタ
Int Input = 1; //mg or MJ
Int Power = 0; //Input×10^n
Int Mode = 0; //0:Mass -> Energy, 1:Energy -> Mass

//光速度
Int C = 3; //×10^8 m/s

//------------------------------------------------------------------------------
Int POT = 1;
If(Power > 0) {
  For(Int I=0;I<Power;I++) {
    POT = POT * 10;
  }
}

Int POMT = 10000;
If(Power < 0) {
  For(Int I=0;I>Power;I--) {
    POMT = POMT / 10;
  }
}

Str IP = {} + Input + { * 10^} + Power + {};

If(Mode == 0) {
  Int E_MJ = Input * POT * POMT * C * C;
  Int E_Mcal = E_MJ * 100 / 419;
  Print({} + IP + {mg = } + E_MJ + {MJ = } + E_Mcal + {Mcal});
}
Else {
  Int M_mg = Input * POT / C / C * POMT / 10000 / 10000;
  Print({} + IP + {MJ = } + M_mg + {mg});
}