/**********************************************************************
costcalc.js

Desc: Contains global vars and functions.

costcalc.js,v 2.1

program by -- Mustaq, Masum and Mursalin	
program coordinated by -- Mursalin Akon
Date : 25-12-98

 **********************************************************************/


//====== gloabal variables ======


//-- sheet: 1 - instructions

//-- sheet: 2 - main
/*var s2s1 = 3.00;
var s2g16 = 1;

var s2f20 = 0, s2g20 = 0, s2h20 = 0, s2i20 = 0, s2j20 = 0;
var s2f21 = 0, s2g21 = 0, s2h21 = 0, s2i21 = 0, s2j21 = 0;

var s2g26 = 0, s2h26 = 0, s2i26 = 0, s2j26 = 0;
var s2g27 = 0, s2h27 = 0, s2i27 = 0, s2j27 = 0;
var s2g28 = 0, s2h28 = 0, s2i28 = 0, s2j28 = 0;
var s2g29 = 0, s2h29 = 0, s2i29 = 0, s2j29 = 0;
var s2g30 = 0, s2h30 = 0, s2i30 = 0, s2j30 = 0;
var s2g31 = 0, s2h31 = 0, s2i31 = 0, s2j31 = 0;
var s2g32 = 0, s2h32 = 0, s2i32 = 0, s2j32 = 0;
var s2g33 = 0, s2h33 = 0, s2i33 = 0, s2j33 = 0;
var s2g34 = 0, s2h34 = 0, s2i34 = 0, s2j34 = 0;
var s2g35 = 0, s2h35 = 0, s2i35 = 0, s2j35 = 0;
var s2g36 = 0, s2h36 = 0, s2i36 = 0, s2j36 = 0;
var s2g37 = 0, s2h37 = 0, s2i37 = 0, s2j37 = 0;
var s2g38 = 0, s2h38 = 0, s2i38 = 0, s2j38 = 0, s2m38 = 0, s2o38 = 0;
var s2g39 = 0, s2h39 = 0, s2i39 = 0, s2j39 = 0, s2m39 = 0, s2o39 = 0;
var s2g40 = 0, s2h40 = 0, s2i40 = 0, s2j40 = 0, s2m40 = 0, s2o40 = 0;
var s2g41 = 0, s2h41 = 0, s2i41 = 0, s2j41 = 0, s2m41 = 0, s2o41 = 0;
var s2g42 = 0, s2h42 = 0, s2i42 = 0, s2j42 = 0, s2m42 = 0, s2o42 = 0;
var s2g43 = 0, s2h43 = 0, s2i43 = 0, s2j43 = 0, s2m43 = 0, s2o43 = 0;
var s2g44 = 0, s2h44 = 0, s2i44 = 0, s2j44 = 0, s2m44 = 0, s2o44 = 0;
var s2g45 = 0, s2h45 = 0, s2i45 = 0, s2j45 = 0, s2m45 = 0, s2o45 = 0;
var s2g46 = 0, s2h46 = 0, s2i46 = 0, s2j46 = 0, s2m46 = 0, s2o46 = 0;
var s2g47 = 0, s2h47 = 0, s2i47 = 0, s2j47 = 0, s2m47 = 0, s2o47 = 0;
var s2g48 = 0, s2h48 = 0, s2i48 = 0, s2j48 = 0, s2m48 = 0, s2o48 = 0;
var s2g49 = 0, s2h49 = 0, s2i49 = 0, s2j49 = 0, s2m49 = 0, s2o49 = 0;
var s2g50 = 0, s2h50 = 0, s2i50 = 0, s2j50 = 0, s2m50 = 0, s2o50 = 0;
var s2g51 = 0, s2h51 = 0, s2i51 = 0, s2j51 = 0, s2m51 = 0, s2o51 = 0;
var s2g52 = 0, s2h52 = 0, s2i52 = 0, s2j52 = 0, s2m52 = 0, s2o52 = 0;
var s2g53 = 0, s2h53 = 0, s2i53 = 0, s2j53 = 0, s2m53 = 0, s2o53 = 0;
var s2g54 = 0, s2h54 = 0, s2i54 = 0, s2j54 = 0, s2m54 = 0, s2o54 = 0;
var s2g55 = 0, s2h55 = 0, s2i55 = 0, s2j55 = 0, s2m55 = 0, s2o55 = 0;
var                                             s2m56 = 0, s2o56 = 0;
var                                             s2m57 = 0, s2o57 = 0;
var s2g58 = 0, s2h58 = 0, s2i58 = 0, s2j58 = 0, s2m58 = 0, s2o58 = 0;
var                                             s2m59 = 0, s2o59 = 0;
var s2g60 = 0, s2h60 = 0, s2i60 = 0, s2j60 = 0, s2m60 = 0, s2o60 = 0;
var                                             s2m61 = 0, s2o61 = 0;
var                                             s2m62 = 0, s2o62 = 0;
var                                             s2m63 = 0, s2o63 = 0;
var            s2h64 = 0, s2i64 = 0, s2j64 = 0, s2m64 = 0, s2o64 = 0;
var            s2h65 = 0, s2i65 = 0, s2j65 = 0, s2m65 = 0, s2o65 = 0;
var            s2h66 = 0, s2i66 = 0, s2j66 = 0, s2m66 = 0, s2o66 = 0;
var            s2h67 = 0, s2i67 = 0, s2j67 = 0, s2m67 = 0, s2o67 = 0;
var            s2h68 = 0, s2i68 = 0, s2j68 = 0, s2m68 = 0, s2o68 = 0;
var            s2h69 = 0, s2i69 = 0, s2j69 = 0, s2m69 = 0, s2o69 = 0;
var                                  s2j70 = 0;
                                               
var s2f76 = 0, s2h76 = 0, s2i76 = 0;
var s2f77 = 0, s2h77 = 0, s2i77 = 0;
var s2f78 = 0, s2h78 = 0, s2i78 = 0;
var s2f79 = 0, s2h79 = 0, s2i79 = 0;
var s2f80 = 0, s2h80 = 0, s2i80 = 0;
var s2f81 = 0, s2h81 = 0, s2i81 = 0;

var s2g86 = 0;

var s2c90 = 0, s2e90 = 0, s2g90 = 0, s2i90 = 0;

var s2d100 = 0, s2e100 = 0, s2f100 = 0, s2g100 = 0, s2h100 = 0, s2i100 = 0, s2j100 = 0;
var s2d101 = 0, s2e101 = 0, s2f101 = 0, s2g101 = 0, s2h101 = 0, s2i101 = 0, s2j101 = 0;
var s2d102 = 0, s2e102 = 0, s2f102 = 0, s2g102 = 0, s2h102 = 0, s2i102 = 0, s2j102 = 0;

var s2e104 = 0, s2j104 = 0;

// the large small table (table 6)
var s2m71 = 0, s2n71 = 0, s2o71 = 0, s2p71 = 0, s2q71 = 0, s2r71 = 0, s2s71 = 0, s2t71 = 0, s2u71 = 0, s2v71 = 0, s2w71 = 0, s2x71 = 0, s2y71 = 0, s2z71 = 0, s2aa71 = 0, s2ab71 = 0, s2ac71 = 0, s2ad71 = 0;
var s2m72 = 0, s2n72 = 0, s2o72 = 0, s2p72 = 0, s2q72 = 0, s2r72 = 0, s2s72 = 0, s2t72 = 0, s2u72 = 0, s2v72 = 0, s2w72 = 0, s2x72 = 0, s2y72 = 0, s2z72 = 0, s2aa72 = 0, s2ab72 = 0, s2ac72 = 0, s2ad72 = 0;
var s2m73 = 0, s2n73 = 0, s2o73 = 0, s2p73 = 0, s2q73 = 0, s2r73 = 0, s2s73 = 0, s2t73 = 0, s2u73 = 0, s2v73 = 0, s2w73 = 0, s2x73 = 0, s2y73 = 0, s2z73 = 0, s2aa73 = 0, s2ab73 = 0, s2ac73 = 0, s2ad73 = 0;
var s2m74 = 0, s2n74 = 0, s2o74 = 0, s2p74 = 0, s2q74 = 0, s2r74 = 0, s2s74 = 0, s2t74 = 0, s2u74 = 0, s2v74 = 0, s2w74 = 0, s2x74 = 0, s2y74 = 0, s2z74 = 0, s2aa74 = 0, s2ab74 = 0, s2ac74 = 0, s2ad74 = 0;
var s2m75 = 0, s2n75 = 0, s2o75 = 0, s2p75 = 0, s2q75 = 0, s2r75 = 0, s2s75 = 0, s2t75 = 0, s2u75 = 0, s2v75 = 0, s2w75 = 0, s2x75 = 0, s2y75 = 0, s2z75 = 0, s2aa75 = 0, s2ab75 = 0, s2ac75 = 0, s2ad75 = 0;
var s2m76 = 0, s2n76 = 0, s2o76 = 0, s2p76 = 0, s2q76 = 0, s2r76 = 0, s2s76 = 0, s2t76 = 0, s2u76 = 0, s2v76 = 0, s2w76 = 0, s2x76 = 0, s2y76 = 0, s2z76 = 0, s2aa76 = 0, s2ab76 = 0, s2ac76 = 0, s2ad76 = 0;
*/

//-- sheet: 3 - irrigation
/*var s3f5 = 0, s3f6 = 0, s3f7 = 0, s3f8 = 0, s3f9 = 1, s3h10 = 0, s3h11 = 0, s3h12 = 0;
var s3h13 = 0, s3d13 = 0, s3g13 = 0, s3h15 = 0;
*/

//-- sheet: 4 - fixed_cost: Variables

var s4g6=200, s4g7=150, s4g8=0.08;

var s4e14=0.25, s4f14=50000, s4g14=10000, s4h14=10, s4i14= 0;
var s4e15=0.25, s4f15=20000, s4g15= 4000, s4h15=10, s4i15= 0;
var s4e16=0.30, s4f16=13000, s4g16= 2600, s4h16=10, s4i16= 0;
var s4e17=0.25, s4f17= 8000, s4g17= 1600, s4h17=10, s4i17= 0;
var s4e18=0.70, s4f18= 4600, s4g18=  920, s4h18=10, s4i18= 0;
var s4e19=0.25, s4f19= 6000, s4g19= 1200, s4h19=10, s4i19= 0;
var s4e20=0.50, s4f20= 4000, s4g20=  800, s4h20=10, s4i20= 0;
var s4e21=0.25, s4f21= 3000, s4g21=  600, s4h21=10, s4i21= 0;
var s4e22=1.00, s4f22=28000, s4g22= 5600, s4h22=10, s4i22= 0;

var s4e26=1.00, s4f26=70000, s4g26=14000, s4h26=10, s4i26= 0;
var s4e27=0.00, s4f27=    0, s4g27=    0, s4h27=10, s4i27= 0;
var s4e28=0.00, s4f28=    0, s4g28=    0, s4h28=10, s4i28= 0;
var s4e29=0.00, s4f29=    0, s4g29=    0, s4h29= 0, s4i29= 0;
var s4e30=0.00, s4f30=50000, s4g30=50000, s4h30=30, s4i30= 0;

var s4e32=1.00, s4f32=40000, s4g32=    0, s4h32=15, s4i32= 0;
var s4e33=1.00, s4f33=12500, s4g33=    0, s4h33=12, s4i33= 0;
var s4e34=1.00, s4f34= 8500, s4g34=    0, s4h34=20, s4i34= 0;
var s4e35=1.00, s4f35=12000, s4g35=    0, s4h35=12, s4i35= 0;
var s4e36=1.00, s4f36= 6500, s4g36=    0, s4h36=20, s4i36= 0;
var s4e37=1.00, s4f37= 3000, s4g37=    0, s4h37=20, s4i37= 0;

var s4f39=0, s4g39=0, s4f40=0, s4g40=0, s4f41=0, s4g41=0;
var s4j43=0, s4j44=0, s4j45=0;
var s4j47=0, s4j48=0, s4j49=0;
var s4j51=0, s4j52=0, s4j53=0, s4h51=0.02, s4h52=0.02, s4h53=0.025;
var s4j55=0;
var s4j57=0, s4j58=0, s4j59=0;

var                   s4n14=0                                    ;
var                   s4n15=0,                   s4q15=0         ;
var s4l16=0, s4m16=0, s4n16=0, s4o16=0, s4p16=0, s4q16=0, s4r16=0;
var s4l17=0, s4m17=0, s4n17=0, s4o17=0, s4p17=0, s4q17=0, s4r17=0;
var s4l18=0, s4m18=0, s4n18=0, s4o18=0, s4p18=0, s4q18=0, s4r18=0;
var                   s4n19=0,                   s4q19=0, s4r19=0;
var                   s4n20=0,                            s4r20=0;
var                   s4n21=0                                    ;
var                   s4n22=0                                    ;


//-- sheet: 5 - fixed payment
// the g6 var is not initialized as 0 as there is a exp for j49 = j48/g6
/*var s5g6 = 1, s5j33 = 0;
var s5e15 = 0, s5f15 = 0, s5g15 = 0, s5h15 = 0, s5i15 = 0, s5j15 = 0;
var s5e16 = 0, s5f16 = 0, s5g16 = 0, s5h16 = 0, s5i16 = 0, s5j16 = 0;
var s5e17 = 0, s5f17 = 0, s5g17 = 0, s5h17 = 0, s5i17 = 0, s5j17 = 0;
var s5e18 = 0, s5f18 = 0, s5g18 = 0, s5h18 = 0, s5i18 = 0, s5j18 = 0;
var s5e19 = 0, s5f19 = 0, s5g19 = 0, s5h19 = 0, s5i19 = 0, s5j19 = 0;
var s5e20 = 0, s5f20 = 0, s5g20 = 0, s5h20 = 0, s5i20 = 0, s5j20 = 0;
var s5e21 = 0, s5f21 = 0, s5g21 = 0, s5h21 = 0, s5i21 = 0, s5j21 = 0;
var s5e22 = 0, s5f22 = 0, s5g22 = 0, s5h22 = 0, s5i22 = 0, s5j22 = 0;
var s5e23 = 0, s5f23 = 0, s5g23 = 0, s5h23 = 0, s5i23 = 0, s5j23 = 0;
var s5e24 = 0, s5f24 = 0, s5g24 = 0, s5h24 = 0, s5i24 = 0, s5j24 = 0;
var s5e25 = 0, s5f25 = 0, s5g25 = 0, s5h25 = 0, s5i25 = 0, s5j25 = 0;
var s5e26 = 0, s5f26 = 0, s5g26 = 0, s5h26 = 0, s5i26 = 0, s5j26 = 0;
var s5e27 = 0, s5f27 = 0, s5g27 = 0, s5h27 = 0, s5i27 = 0, s5j27 = 0;
var s5e28 = 0, s5f28 = 0, s5g28 = 0, s5h28 = 0, s5i28 = 0, s5j28 = 0;
var s5e29 = 0, s5f29 = 0, s5g29 = 0, s5h29 = 0, s5i29 = 0, s5j29 = 0;
var s5e30 = 0, s5f30 = 0, s5g30 = 0, s5h30 = 0, s5i30 = 0, s5j30 = 0;
var s5e31 = 0, s5f31 = 0, s5g31 = 0, s5h31 = 0, s5i31 = 0, s5j31 = 0;

var s5j39 = 0, s5j40 = 0, s5j41 = 0, s5j42 = 0, s5j43 = 0;
var s5j45 = 0, s5j47 = 0, s5j48 = 0, s5j49 = 0;
*/

//-- sheet: 6 - machine_cost: Variables
/*** Table 1 vars ***/
var              s6c2=200;

var s6b7=50000,  s6c7=0,  s6d7=0.25,  s6e7=0,  s6f7=0;
var s6b8=20000,  s6c8=0,  s6d8=0.25,  s6e8=0,  s6f8=0;

var s6b11= 7000, s6c11=0, s6d11=0.00, s6e11=0, s6f11=0;
var s6b12=13000, s6c12=0, s6d12=0.30, s6e12=0, s6f12=0;
var s6b13= 4600, s6c13=0, s6d13=0.70, s6e13=0, s6f13=0;
var s6b14= 4800, s6c14=0, s6d14=0.00, s6e14=0, s6f14=0;
var s6b15= 6800, s6c15=0, s6d15=0.00, s6e15=0, s6f15=0;
var s6b16=16000, s6c16=0, s6d16=0.00, s6e16=0, s6f16=0;

var s6b18= 6000, s6c18=0, s6d18=0.25, s6e18=0, s6f18=0;
var s6b19= 5600, s6c19=0, s6d19=0.00, s6e19=0, s6f19=0;
var s6b20= 4000, s6c20=0, s6d20=0.50, s6e20=0, s6f20=0;
var s6b21= 3400, s6c21=0, s6d21=0.00, s6e21=0, s6f21=0;
var s6b22= 6800, s6c22=0, s6d22=0.00, s6e22=0, s6f22=0;

var s6b24= 3000, s6c24=0, s6d24=0.25, s6e24=0, s6f24=0;
var s6b25= 3000, s6c25=0, s6d25=0.25, s6e25=0, s6f25=0;
var s6b26=28000, s6c26=0, s6d26=1.00, s6e26=0, s6f26=0;
var s6b27= 4200, s6c27=0, s6d27=0.00, s6e27=0, s6f27=0;
var s6b28= 5000, s6c28=0, s6d28=0.00, s6e28=0, s6f28=0;
var s6b29=11200, s6c29=0, s6d29=0.00, s6e29=0, s6f29=0;

var s6b31=13000, s6c31=0, s6d31=0.00, s6e31=0, s6f31=0;
var                                   s6e32=0, s6f32=0;

var s6b35=80000, s6c35=0, s6d35=0.00, s6e35=0, s6f35=0;
var s6b36=12500, s6c36=0, s6d36=0.00, s6e36=0, s6f36=0;
var s6b37=15000, s6c37=0, s6d37=0.00, s6e37=0, s6f37=0;
var s6b38=20000, s6c38=0, s6d38=0.00, s6e38=0, s6f38=0;
var s6b39= 5000, s6c39=0, s6d39=0.00, s6e39=0, s6f39=0;
var s6b40=70000, s6c40=0, s6d40=1.00, s6e40=0, s6f40=0;
var s6b41= 6000, s6c41=0, s6d41=0.00, s6e41=0, s6f41=0;
var s6b42=10500, s6c42=0, s6d42=0.00, s6e42=0, s6f42=0;
var s6b43=14000, s6c43=0, s6d43=0.00, s6e43=0, s6f43=0;
var s6b44= 2900, s6c44=0, s6d44=0.00, s6e44=0, s6f44=0;
var s6b45=46000, s6c45=0, s6d45=0.00, s6e45=0, s6f45=0;
var s6b46=18000, s6c46=0, s6d46=0.00, s6e46=0, s6f46=0;

var s6b49= 2000, s6c49=0, s6d49=0.00, s6e49=0, s6f49=0;
var s6b50=20000, s6c50=0, s6d50=1.00, s6e50=0, s6f50=0;
var s6b51= 2700, s6c51=0, s6d51=0.00, s6e51=0, s6f51=0;
var s6b52= 2700, s6c52=0, s6d52=0.00, s6e52=0, s6f52=0;
var s6b53= 2500, s6c53=0, s6d53=0.00, s6e53=0, s6f53=0;

var                                   s6e54=0         ;
var                                   s6e55=0         ;

/*** Table 2 vars ***/
var                   s6l7=0.09                                              ;
var                   s6l8=0.09                                              ;

var                                                          s6o10=0         ;
var s6j11=0.00, s6k11=2.50, s6l11=0.40, s6m11=1.40, s6n11=0, s6o11=0, s6p11=0;
var s6j12=1.00, s6k12=6.00, s6l12=0.33, s6m12=1.00, s6n12=0, s6o12=0, s6p12=0;
var s6j13=1.00, s6k13=4.00, s6l13=0.33, s6m13=1.70, s6n13=0, s6o13=0, s6p13=0;
var s6j14=0.00, s6k14=4.00, s6l14=0.33, s6m14=1.30, s6n14=0, s6o14=0, s6p14=0;
var s6j15=0.00, s6k15=6.00, s6l15=0.33, s6m15=0.70, s6n15=0, s6o15=0, s6p15=0;
var s6j16=0.00, s6k16=4.00, s6l16=0.33, s6m16=2.00, s6n16=0, s6o16=0, s6p16=0;

var s6j18=1.00, s6k18=6.00, s6l18=0.75, s6m18=0.50, s6n18=0, s6o18=0, s6p18=0;
var s6j19=0.00, s6k19=4.00, s6l19=0.75, s6m19=0.40, s6n19=0, s6o19=0, s6p19=0;
var s6j20=1.00, s6k20=6.00, s6l20=0.33, s6m20=0.50, s6n20=0, s6o20=0, s6p20=0;
var s6j21=0.00, s6k21=0.50, s6l21=0.75, s6m21=1.30, s6n21=0, s6o21=0, s6p21=0;
var                         s6l22=0.00,                      s6o22=0         ;

var s6j24=1.00, s6k24=6.00, s6l24=0.78, s6m24=0.70, s6n24=0, s6o24=0, s6p24=0;
var s6j25=2.00, s6k25=8.00, s6l25=0.78, s6m25=0.20, s6n25=0, s6o25=0, s6p25=0;
var s6j26=2.00, s6k26=10.0, s6l26=0.40, s6m26=0.20, s6n26=0, s6o26=0, s6p26=0;
var s6j27=0.00, s6k27=3.00, s6l27=1.80, s6m27=0.40, s6n27=0, s6o27=0, s6p27=0;
var s6j28=0.00, s6k28=3.00, s6l28=0.38, s6m28=0.90, s6n28=0, s6o28=0, s6p28=0;
var                         s6l29=0.91                                       ;

var s6j31=1.00, s6k31=3.00, s6l31=1.86, s6m31=2.00, s6n31=0, s6o31=0, s6p31=0;
var                                                 s6n32=0, s6o32=0, s6p32=0;

var s6j35=0.00, s6k35=3.00, s6l35=0.17, s6m35=1.70, s6n35=0, s6o35=0, s6p35=0;
var s6j36=0.00, s6k36=3.00, s6l36=0.17, s6m36=1.30, s6n36=0, s6o36=0, s6p36=0;
var s6j37=0.00, s6k37=3.00, s6l37=0.50, s6m37=1.10, s6n37=0, s6o37=0, s6p37=0;
var s6j38=0.00, s6k38=0.80, s6l38=0.40, s6m38=3.30, s6n38=0, s6o38=0, s6p38=0;
var s6j39=0.00, s6k39=2.00, s6l39=0.40, s6m39=1.00, s6n39=0, s6o39=0, s6p39=0;
var s6j40=1.00, s6k40=1.20, s6l40=0.38, s6m40=2.80, s6n40=0, s6o40=0, s6p40=0;
var s6j41=0.00, s6k41=4.00, s6l41=0.37, s6m41=0.20, s6n41=0, s6o41=0, s6p41=0;
var s6j42=0.00, s6k42=3.00, s6l42=0.40, s6m42=0.80, s6n42=0, s6o42=0, s6p42=0;
var s6j43=0.00, s6k43=3.00, s6l43=0.40, s6m43=0.80, s6n43=0, s6o43=0, s6p43=0;
var s6j44=0.00, s6k44=2.00, s6l44=0.30, s6m44=0.80, s6n44=0, s6o44=0, s6p44=0;
var s6j45=0.00, s6k45=1.00, s6l45=0.17, s6m45=2.70, s6n45=0, s6o45=0, s6p45=0;
var s6j46=0.00, s6k46=1.50, s6l46=0.40, s6m46=3.60, s6n46=0, s6o46=0, s6p46=0;

var s6j48=0.00, s6k48=3.00,             s6m48=0.25, s6n48=0, s6o48=0, s6p48=0;
var s6j49=0.00, s6k49=1.50, s6l49=0.18, s6m49=0.60, s6n49=0, s6o49=0, s6p49=0;
var s6j50=2.00, s6k50=2.00, s6l50=0.18, s6m50=1.00, s6n50=0, s6o50=0, s6p50=0;
var s6j51=0.00, s6k51=2.00, s6l51=0.18, s6m51=0.80, s6n51=0, s6o51=0, s6p51=0;
var s6j52=0.00, s6k52=1.50, s6l52=0.18, s6m52=1.50, s6n52=0, s6o52=0, s6p52=0;
var s6j53=0.00, s6k53=1.00, s6l53=0.18, s6m53=1.60, s6n53=0, s6o53=0, s6p53=0;
var                                                 s6n54=0, s6o54=0, s6p54=0;

var                                                 s6n56=0, s6o56=0, s6p56=0;


// Others
var s6r1=0.09, s6r2=0.04, s6r3=0.01, s6r4=0.01, s6r5=0.01, s6r6=0.16;

// other global vars
var ntab = 1; //indicates that what is the tab number


///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////
// for debug purpose

// sheet -- 2
var s2s1 = 3.00;
var s2g16 = 100;

var s2f20 = 1400, s2g20 = 1200, s2h20 = 1000, s2i20 = 800, s2j20 = 600;
var s2f21 = 0.8, s2g21 = 0.7, s2h21 = 0.6, s2i21 = 0.5, s2j21 = 0.4;

var s2g26 = 8, s2h26 = 0, s2i26 = 0.66, s2j26 = 0;
var s2g27 = 0.33, s2h27 = 0, s2i27 = 24, s2j27 = 0;
var s2g28 = 0, s2h28 = 0, s2i28 = 0, s2j28 = 0;
var s2g29 = 90, s2h29 = 0, s2i29 = .240, s2j29 = 0;
var s2g30 = 60, s2h30 = 0, s2i30 = 0.2, s2j30 = 0;
var s2g31 = 90, s2h31 = 0, s2i31 = 0.13, s2j31 = 0;
var s2g32 = 2, s2h32 = 0, s2i32 = 0.55, s2j32 = 0;
var s2g33 = 0, s2h33 = 0, s2i33 = 0, s2j33 = 0;
var s2g34 = 1, s2h34 = 0, s2i34 = 33, s2j34 = 0;
var s2g35 = 1, s2h35 = 0, s2i35 = 41, s2j35 = 0;
var s2g36 = 0, s2h36 = 0, s2i36 = 0, s2j36 = 0;
var s2g37 = 5, s2h37 = 0, s2i37 = 3.5, s2j37 = 0;
var s2g38 = 0, s2h38 = 0, s2i38 = 0, s2j38 = 0, s2m38 = 0, s2o38 = 0;
var s2g39 = 1, s2h39 = 0, s2i39 = 15, s2j39 = 0, s2m39 = 0, s2o39 = 0;
var s2g40 = 1, s2h40 = 0, s2i40 = 6, s2j40 = 0, s2m40 = 0, s2o40 = 0;
var s2g41 = 1, s2h41 = 0, s2i41 = 6, s2j41 = 0, s2m41 = 0, s2o41 = 0;
var s2g42 = 0, s2h42 = 0, s2i42 = 0, s2j42 = 0, s2m42 = 0, s2o42 = 0;
var s2g43 = 9, s2h43 = 0, s2i43 = 0.85, s2j43 = 0, s2m43 = 0, s2o43 = 0;
var s2g44 = 1, s2h44 = 0, s2i44 = 8, s2j44 = 0, s2m44 = 0, s2o44 = 0;
var s2g45 = 0, s2h45 = 0, s2i45 = 0, s2j45 = 0, s2m45 = 0, s2o45 = 0;
var s2g46 = 10, s2h46 = 0, s2i46 = 0.85, s2j46 = 0, s2m46 = 0, s2o46 = 0;
var s2g47 = 1, s2h47 = 0, s2i47 = 18, s2j47 = 0, s2m47 = 0, s2o47 = 0;
var s2g48 = 0, s2h48 = 0, s2i48 = 0, s2j48 = 0, s2m48 = 0, s2o48 = 0;
var s2g49 = 6, s2h49 = 0, s2i49 = 6, s2j49 = 0, s2m49 = 0, s2o49 = 0;
var s2g50 = 4, s2h50 = 0, s2i50 = 0, s2j50 = 0, s2m50 = 0, s2o50 = 0;
var s2g51 = 0, s2h51 = 0, s2i51 = 0, s2j51 = 0, s2m51 = 0, s2o51 = 0;
var s2g52 = 0, s2h52 = 0, s2i52 = 0.09, s2j52 = 0, s2m52 = 0, s2o52 = 0;
var s2g53 = 1000, s2h53 = 0, s2i53 = 0.09, s2j53 = 0, s2m53 = 0, s2o53 = 0;
var s2g54 = 2, s2h54 = 0, s2i54 = 15.50, s2j54 = 0, s2m54 = 0, s2o54 = 0;
var s2g55 = 0, s2h55 = 0, s2i55 = 0, s2j55 = 0, s2m55 = 0, s2o55 = 0;
var                                             s2m56 = 0, s2o56 = 0;
var                                             s2m57 = 0, s2o57 = 0;
var s2g58 = 0, s2h58 = 0, s2i58 = 70, s2j58 = 0, s2m58 = 0, s2o58 = 0;
var                                             s2m59 = 0, s2o59 = 0;
var s2g60 = 0, s2h60 = 0, s2i60 = 0, s2j60 = 0, s2m60 = 0, s2o60 = 0;
var                                             s2m61 = 0, s2o61 = 0;
var                                             s2m62 = 0, s2o62 = 0;
var                                             s2m63 = 0, s2o63 = 0;
var            s2h64 = 0, s2i64 = 0, s2j64 = 0, s2m64 = 0, s2o64 = 0;
var            s2h65 = 0, s2i65 = 0, s2j65 = 0, s2m65 = 0, s2o65 = 0;
var            s2h66 = 0, s2i66 = 0, s2j66 = 0, s2m66 = 0, s2o66 = 0;
var            s2h67 = 0, s2i67 = 0, s2j67 = 0, s2m67 = 0, s2o67 = 0;
var            s2h68 = 0, s2i68 = 0, s2j68 = 0, s2m68 = 0, s2o68 = 0;
var            s2h69 = 0, s2i69 = 0, s2j69 = 0, s2m69 = 0, s2o69 = 0;
var                                  s2j70 = 0;
                                               
var s2f76 = 0, s2h76 = 0, s2i76 = 0;
var s2f77 = 0, s2h77 = 0, s2i77 = 0;
var s2f78 = 0, s2h78 = 0, s2i78 = 0;
var s2f79 = 0, s2h79 = 0, s2i79 = 0;
var s2f80 = 0, s2h80 = 0, s2i80 = 0;
var s2f81 = 0, s2h81 = 0, s2i81 = 0;

var s2g86 = 0;

var s2c90 = 0, s2e90 = 0, s2g90 = 0, s2i90 = 0;

var s2d100 = 0, s2e100 = 0, s2f100 = 0, s2g100 = 0, s2h100 = 0, s2i100 = 0, s2j100 = 0;
var s2d101 = 0, s2e101 = 0, s2f101 = 0, s2g101 = 0, s2h101 = 0, s2i101 = 0, s2j101 = 0;
var s2d102 = 0, s2e102 = 0, s2f102 = 0, s2g102 = 0, s2h102 = 0, s2i102 = 0, s2j102 = 0;

var s2e104 = 0, s2j104 = 0;

// the large small table (table 6)
var s2m71 = 0, s2n71 = 0, s2o71 = 0, s2p71 = 0, s2q71 = 0, s2r71 = 0, s2s71 = 0, s2t71 = 0, s2u71 = 0, s2v71 = 0, s2w71 = 0, s2x71 = 0, s2y71 = 0, s2z71 = 0, s2aa71 = 0, s2ab71 = 0, s2ac71 = 0, s2ad71 = 0;
var s2m72 = 0, s2n72 = 0, s2o72 = 0, s2p72 = 0, s2q72 = 0, s2r72 = 0, s2s72 = 0, s2t72 = 0, s2u72 = 0, s2v72 = 0, s2w72 = 0, s2x72 = 0, s2y72 = 0, s2z72 = 0, s2aa72 = 0, s2ab72 = 0, s2ac72 = 0, s2ad72 = 0;
var s2m73 = 0, s2n73 = 0, s2o73 = 0, s2p73 = 0, s2q73 = 0, s2r73 = 0, s2s73 = 0, s2t73 = 0, s2u73 = 0, s2v73 = 0, s2w73 = 0, s2x73 = 0, s2y73 = 0, s2z73 = 0, s2aa73 = 0, s2ab73 = 0, s2ac73 = 0, s2ad73 = 0;
var s2m74 = 0, s2n74 = 0, s2o74 = 0, s2p74 = 0, s2q74 = 0, s2r74 = 0, s2s74 = 0, s2t74 = 0, s2u74 = 0, s2v74 = 0, s2w74 = 0, s2x74 = 0, s2y74 = 0, s2z74 = 0, s2aa74 = 0, s2ab74 = 0, s2ac74 = 0, s2ad74 = 0;
var s2m75 = 0, s2n75 = 0, s2o75 = 0, s2p75 = 0, s2q75 = 0, s2r75 = 0, s2s75 = 0, s2t75 = 0, s2u75 = 0, s2v75 = 0, s2w75 = 0, s2x75 = 0, s2y75 = 0, s2z75 = 0, s2aa75 = 0, s2ab75 = 0, s2ac75 = 0, s2ad75 = 0;
var s2m76 = 0, s2n76 = 0, s2o76 = 0, s2p76 = 0, s2q76 = 0, s2r76 = 0, s2s76 = 0, s2t76 = 0, s2u76 = 0, s2v76 = 0, s2w76 = 0, s2x76 = 0, s2y76 = 0, s2z76 = 0, s2aa76 = 0, s2ab76 = 0, s2ac76 = 0, s2ad76 = 0;

// sheet -- 3
var s3f5 = 120, s3f6 = 0.85, s3f7 = 0, s3f8 = 70, s3f9 = 150, s3h10 = 0, s3h11 = 0, s3h12 = 0;
var s3h13 = 0, s3d13 = 0.01, s3g13 = 06, s3h15 = 0;

//-- sheet: 4 - fixed_cost: Variables

var s4g6=200, s4g7=150, s4g8=0.08;

var s4e14=0.25, s4f14=50000, s4g14=10000, s4h14=10, s4i14= 0;
var s4e15=0.25, s4f15=20000, s4g15= 4000, s4h15=10, s4i15= 0;
var s4e16=0.30, s4f16=13000, s4g16= 2600, s4h16=10, s4i16= 0;
var s4e17=0.25, s4f17= 8000, s4g17= 1600, s4h17=10, s4i17= 0;
var s4e18=0.70, s4f18= 4600, s4g18=  920, s4h18=10, s4i18= 0;
var s4e19=0.25, s4f19= 6000, s4g19= 1200, s4h19=10, s4i19= 0;
var s4e20=0.50, s4f20= 4000, s4g20=  800, s4h20=10, s4i20= 0;
var s4e21=0.25, s4f21= 3000, s4g21=  600, s4h21=10, s4i21= 0;
var s4e22=1.00, s4f22=28000, s4g22= 5600, s4h22=10, s4i22= 0;

var s4e26=1.00, s4f26=70000, s4g26=14000, s4h26=10, s4i26= 0;
var s4e27=0.00, s4f27=    0, s4g27=    0, s4h27=10, s4i27= 0;
var s4e28=0.00, s4f28=    0, s4g28=    0, s4h28=10, s4i28= 0;
var s4e29=0.00, s4f29=    0, s4g29=    0, s4h29= 0, s4i29= 0;
var s4e30=0.00, s4f30=50000, s4g30=50000, s4h30=30, s4i30= 0;

var s4e32=1.00, s4f32=40000, s4g32=    0, s4h32=15, s4i32= 0;
var s4e33=1.00, s4f33=12500, s4g33=    0, s4h33=12, s4i33= 0;
var s4e34=1.00, s4f34= 8500, s4g34=    0, s4h34=20, s4i34= 0;
var s4e35=1.00, s4f35=12000, s4g35=    0, s4h35=12, s4i35= 0;
var s4e36=1.00, s4f36= 6500, s4g36=    0, s4h36=20, s4i36= 0;
var s4e37=1.00, s4f37= 3000, s4g37=    0, s4h37=20, s4i37= 0;

var s4f39=0, s4g39=0, s4f40=0, s4g40=0, s4f41=0, s4g41=0;
var s4j43=0, s4j44=0, s4j45=0;
var s4j47=0, s4j48=0, s4j49=0;
var s4j51=0, s4j52=0, s4j53=0, s4h51=0.02, s4h52=0.02, s4h53=0.025;
var s4j55=0;
var s4j57=0, s4j58=0, s4j59=0;

var                   s4n14=0                                    ;
var                   s4n15=0,                   s4q15=0         ;
var s4l16=0, s4m16=0, s4n16=0, s4o16=0, s4p16=0, s4q16=0, s4r16=0;
var s4l17=0, s4m17=0, s4n17=0, s4o17=0, s4p17=0, s4q17=0, s4r17=0;
var s4l18=0, s4m18=0, s4n18=0, s4o18=0, s4p18=0, s4q18=0, s4r18=0;
var                   s4n19=0,                   s4q19=0, s4r19=0;
var                   s4n20=0,                            s4r20=0;
var                   s4n21=0                                    ;
var                   s4n22=0                                    ;


//-- sheet: 5 - fixed payment
// the g6 var is not initialized as 0 as there is a exp for j49 = j48/g6
var s5g6 = 200, s5j33 = 0;
var s5e15 = 0, s5f15 = 0, s5g15 = 50, s5h15 = 7, s5i15 = 11, s5j15 = 0;
var s5e16 = 0, s5f16 = 0, s5g16 = 50, s5h16 = 7, s5i16 = 11, s5j16 = 0;
var s5e17 = 0, s5f17 = 0, s5g17 = 50, s5h17 = 7, s5i17 = 11, s5j17 = 0;
var s5e18 = 0, s5f18 = 0, s5g18 = 50, s5h18 = 7, s5i18 = 11, s5j18 = 0;
var s5e19 = 0, s5f19 = 0, s5g19 = 50, s5h19 = 7, s5i19 = 11, s5j19 = 0;
var s5e20 = 0, s5f20 = 0, s5g20 = 50, s5h20 = 7, s5i20 = 11, s5j20 = 0;
var s5e21 = 0, s5f21 = 0, s5g21 = 50, s5h21 = 7, s5i21 = 11, s5j21 = 0;
var s5e22 = 0, s5f22 = 0, s5g22 = 50, s5h22 = 7, s5i22 = 11, s5j22 = 0;
var s5e23 = 0, s5f23 = 0, s5g23 = 50, s5h23 = 7, s5i23 = 11, s5j23 = 0;
var s5e24 = 0, s5f24 = 0, s5g24 = 50, s5h24 = 7, s5i24 = 11, s5j24 = 0;
var s5e25 = 0, s5f25 = 0, s5g25 = 50, s5h25 = 7, s5i25 = 11, s5j25 = 0;
var s5e26 = 0, s5f26 = 0, s5g26 = 50, s5h26 = 7, s5i26 = 11, s5j26 = 0;
var s5e27 = 0, s5f27 = 0, s5g27 = 50, s5h27 = 7, s5i27 = 11, s5j27 = 0;
var s5e28 = 0, s5f28 = 0, s5g28 = 50, s5h28 = 7, s5i28 = 11, s5j28 = 0;
var s5e29 = 0, s5f29 = 0, s5g29 = 50, s5h29 = 7, s5i29 = 11, s5j29 = 0;
var s5e30 = 0, s5f30 = 0, s5g30 = 50, s5h30 = 7, s5i30 = 11, s5j30 = 0;
var s5e31 = 0, s5f31 = 0, s5g31 = 50, s5h31 = 7, s5i31 = 11, s5j31 = 0;

var s5j39 = 0, s5j40 = 0, s5j41 = 0, s5j42 = 0, s5j43 = 0;
var s5j45 = 0, s5j47 = 0, s5j48 = 0, s5j49 = 0;


//-- sheet: 6 - machine_cost: Variables
/*** Table 1 vars ***/
var              s6c2=200;

var s6b7=50000,  s6c7=0,  s6d7=0.25,  s6e7=0,  s6f7=0;
var s6b8=20000,  s6c8=0,  s6d8=0.25,  s6e8=0,  s6f8=0;

var s6b11= 7000, s6c11=0, s6d11=0.00, s6e11=0, s6f11=0;
var s6b12=13000, s6c12=0, s6d12=0.30, s6e12=0, s6f12=0;
var s6b13= 4600, s6c13=0, s6d13=0.70, s6e13=0, s6f13=0;
var s6b14= 4800, s6c14=0, s6d14=0.00, s6e14=0, s6f14=0;
var s6b15= 6800, s6c15=0, s6d15=0.00, s6e15=0, s6f15=0;
var s6b16=16000, s6c16=0, s6d16=0.00, s6e16=0, s6f16=0;

var s6b18= 6000, s6c18=0, s6d18=0.25, s6e18=0, s6f18=0;
var s6b19= 5600, s6c19=0, s6d19=0.00, s6e19=0, s6f19=0;
var s6b20= 4000, s6c20=0, s6d20=0.50, s6e20=0, s6f20=0;
var s6b21= 3400, s6c21=0, s6d21=0.00, s6e21=0, s6f21=0;
var s6b22= 6800, s6c22=0, s6d22=0.00, s6e22=0, s6f22=0;

var s6b24= 3000, s6c24=0, s6d24=0.25, s6e24=0, s6f24=0;
var s6b25= 3000, s6c25=0, s6d25=0.25, s6e25=0, s6f25=0;
var s6b26=28000, s6c26=0, s6d26=1.00, s6e26=0, s6f26=0;
var s6b27= 4200, s6c27=0, s6d27=0.00, s6e27=0, s6f27=0;
var s6b28= 5000, s6c28=0, s6d28=0.00, s6e28=0, s6f28=0;
var s6b29=11200, s6c29=0, s6d29=0.00, s6e29=0, s6f29=0;

var s6b31=13000, s6c31=0, s6d31=0.00, s6e31=0, s6f31=0;
var                                   s6e32=0, s6f32=0;

var s6b35=80000, s6c35=0, s6d35=0.00, s6e35=0, s6f35=0;
var s6b36=12500, s6c36=0, s6d36=0.00, s6e36=0, s6f36=0;
var s6b37=15000, s6c37=0, s6d37=0.00, s6e37=0, s6f37=0;
var s6b38=20000, s6c38=0, s6d38=0.00, s6e38=0, s6f38=0;
var s6b39= 5000, s6c39=0, s6d39=0.00, s6e39=0, s6f39=0;
var s6b40=70000, s6c40=0, s6d40=1.00, s6e40=0, s6f40=0;
var s6b41= 6000, s6c41=0, s6d41=0.00, s6e41=0, s6f41=0;
var s6b42=10500, s6c42=0, s6d42=0.00, s6e42=0, s6f42=0;
var s6b43=14000, s6c43=0, s6d43=0.00, s6e43=0, s6f43=0;
var s6b44= 2900, s6c44=0, s6d44=0.00, s6e44=0, s6f44=0;
var s6b45=46000, s6c45=0, s6d45=0.00, s6e45=0, s6f45=0;
var s6b46=18000, s6c46=0, s6d46=0.00, s6e46=0, s6f46=0;

var s6b49= 2000, s6c49=0, s6d49=0.00, s6e49=0, s6f49=0;
var s6b50=20000, s6c50=0, s6d50=1.00, s6e50=0, s6f50=0;
var s6b51= 2700, s6c51=0, s6d51=0.00, s6e51=0, s6f51=0;
var s6b52= 2700, s6c52=0, s6d52=0.00, s6e52=0, s6f52=0;
var s6b53= 2500, s6c53=0, s6d53=0.00, s6e53=0, s6f53=0;

var                                   s6e54=0         ;
var                                   s6e55=0         ;

/*** Table 2 vars ***/
var                   s6l7=0.09                                              ;
var                   s6l8=0.09                                              ;

var                                                          s6o10=0         ;
var s6j11=0.00, s6k11=2.50, s6l11=0.40, s6m11=1.40, s6n11=0, s6o11=0, s6p11=0;
var s6j12=1.00, s6k12=6.00, s6l12=0.33, s6m12=1.00, s6n12=0, s6o12=0, s6p12=0;
var s6j13=1.00, s6k13=4.00, s6l13=0.33, s6m13=1.70, s6n13=0, s6o13=0, s6p13=0;
var s6j14=0.00, s6k14=4.00, s6l14=0.33, s6m14=1.30, s6n14=0, s6o14=0, s6p14=0;
var s6j15=0.00, s6k15=6.00, s6l15=0.33, s6m15=0.70, s6n15=0, s6o15=0, s6p15=0;
var s6j16=0.00, s6k16=4.00, s6l16=0.33, s6m16=2.00, s6n16=0, s6o16=0, s6p16=0;

var s6j18=1.00, s6k18=6.00, s6l18=0.75, s6m18=0.50, s6n18=0, s6o18=0, s6p18=0;
var s6j19=0.00, s6k19=4.00, s6l19=0.75, s6m19=0.40, s6n19=0, s6o19=0, s6p19=0;
var s6j20=1.00, s6k20=6.00, s6l20=0.33, s6m20=0.50, s6n20=0, s6o20=0, s6p20=0;
var s6j21=0.00, s6k21=0.50, s6l21=0.75, s6m21=1.30, s6n21=0, s6o21=0, s6p21=0;
var                         s6l22=0.00,                      s6o22=0         ;

var s6j24=1.00, s6k24=6.00, s6l24=0.78, s6m24=0.70, s6n24=0, s6o24=0, s6p24=0;
var s6j25=2.00, s6k25=8.00, s6l25=0.78, s6m25=0.20, s6n25=0, s6o25=0, s6p25=0;
var s6j26=2.00, s6k26=10.0, s6l26=0.40, s6m26=0.20, s6n26=0, s6o26=0, s6p26=0;
var s6j27=0.00, s6k27=3.00, s6l27=1.80, s6m27=0.40, s6n27=0, s6o27=0, s6p27=0;
var s6j28=0.00, s6k28=3.00, s6l28=0.38, s6m28=0.90, s6n28=0, s6o28=0, s6p28=0;
var                         s6l29=0.91                                       ;

var s6j31=1.00, s6k31=3.00, s6l31=1.86, s6m31=2.00, s6n31=0, s6o31=0, s6p31=0;
var                                                 s6n32=0, s6o32=0, s6p32=0;

var s6j35=0.00, s6k35=3.00, s6l35=0.17, s6m35=1.70, s6n35=0, s6o35=0, s6p35=0;
var s6j36=0.00, s6k36=3.00, s6l36=0.17, s6m36=1.30, s6n36=0, s6o36=0, s6p36=0;
var s6j37=0.00, s6k37=3.00, s6l37=0.50, s6m37=1.10, s6n37=0, s6o37=0, s6p37=0;
var s6j38=0.00, s6k38=0.80, s6l38=0.40, s6m38=3.30, s6n38=0, s6o38=0, s6p38=0;
var s6j39=0.00, s6k39=2.00, s6l39=0.40, s6m39=1.00, s6n39=0, s6o39=0, s6p39=0;
var s6j40=1.00, s6k40=1.20, s6l40=0.38, s6m40=2.80, s6n40=0, s6o40=0, s6p40=0;
var s6j41=0.00, s6k41=4.00, s6l41=0.37, s6m41=0.20, s6n41=0, s6o41=0, s6p41=0;
var s6j42=0.00, s6k42=3.00, s6l42=0.40, s6m42=0.80, s6n42=0, s6o42=0, s6p42=0;
var s6j43=0.00, s6k43=3.00, s6l43=0.40, s6m43=0.80, s6n43=0, s6o43=0, s6p43=0;
var s6j44=0.00, s6k44=2.00, s6l44=0.30, s6m44=0.80, s6n44=0, s6o44=0, s6p44=0;
var s6j45=0.00, s6k45=1.00, s6l45=0.17, s6m45=2.70, s6n45=0, s6o45=0, s6p45=0;
var s6j46=0.00, s6k46=1.50, s6l46=0.40, s6m46=3.60, s6n46=0, s6o46=0, s6p46=0;

var s6j48=0.00, s6k48=3.00,             s6m48=0.25, s6n48=0, s6o48=0, s6p48=0;
var s6j49=0.00, s6k49=1.50, s6l49=0.18, s6m49=0.60, s6n49=0, s6o49=0, s6p49=0;
var s6j50=2.00, s6k50=2.00, s6l50=0.18, s6m50=1.00, s6n50=0, s6o50=0, s6p50=0;
var s6j51=0.00, s6k51=2.00, s6l51=0.18, s6m51=0.80, s6n51=0, s6o51=0, s6p51=0;
var s6j52=0.00, s6k52=1.50, s6l52=0.18, s6m52=1.50, s6n52=0, s6o52=0, s6p52=0;
var s6j53=0.00, s6k53=1.00, s6l53=0.18, s6m53=1.60, s6n53=0, s6o53=0, s6p53=0;
var                                                 s6n54=0, s6o54=0, s6p54=0;

var                                                 s6n56=0, s6o56=0, s6p56=0;


// Others
var s6r1=0.09, s6r2=0.04, s6r3=0.01, s6r4=0.01, s6r5=0.01, s6r6=0.16;




///////////////////////////////////////////////////////////////////////////////////////
// global functions
function FixIt(val)
{
	return (Math.floor((val * 100 + 0.5)) / 100);
}


//--- sheet 2 ---
// SUM of Excel
function SumVert(sheet, col, r1, r2)
{
    var r, v;
    v = 0;
    for (r = r1; r <= r2; r++)
        v += this[sheet + col + r];
    return v;
}

function Display(frm_name, vname)
{
    frm_name[vname].value = FixIt(this[vname]);
}

function VARSofSheet2()
{
    var r, nacres;
    var tmp;
    var cp, cq, cv, cw, cab, cac;

    nacres = s2g16;
    
    s2m38 = s2g16;
    s2g48 = s2m38;
    s2i50 = s3h15; // irrigation h15

    // calc varcost table
    for (r = 26; r <= 51; r++)
    {
        this["s2h" + r] = this["s2g" + r] * nacres;
        this["s2j" + r] = this["s2h" + r] * this["s2i" + r];
    }

    s2h52 = SumVert("s2", "j", 26, 51);
    s2j52 = s2h52 * s2i52 / 365 * 182.5;

    for (r = 53; r <= 54; r++)
    {
        this["s2h" + r] = this["s2g" + r] * nacres;
        this["s2j" + r] = this["s2h" + r] * this["s2i" + r];
    }

    s2j55 = SumVert("s2", "j", 26, 54);

    // adj to costs
    s2g53 = s2h20
    s2g58 = s2h20 * 1.6 / 2000;
    s2h58 = s2g58 * nacres;
    s2j58 = s2h58 * s2i58;

    s2j60 = s2j55 - s2j58;  // adjusted total var cost

    // fixed cost table
    s2h64 = nacres;
    s2h65 = nacres;
    s2h66 = nacres;
    s2h67 = s2j55;
    s2h68 = s2j55;
    s2h69 = nacres;

    s2i64 = s4j57; // from fixed_cost
    s2i65 = s4j58; // from fixed_cost
    s2i66 = s4j59; // from fixed_cost
    s2i67 = 0.05;
    s2i68 = 0.05;
    s2i69 = 0;

    for (r = 64; r <= 69; r++)
        this["s2j" + r] = this["s2h" + r] * this["s2i" + r];

    s2j70 = SumVert("s2", "j", 64, 69);


    // expected breakeven table (breakeven)
    s2f76 = s2j60;
    s2f77 = s2j64 + s2j65 + s2j66;
    s2f78 = s2j67;
    s2f79 = s2j68;
    s2f80 = s2j69;
    s2f81 = SumVert("s2", "f", 76, 80);

        // col i (h will be calced later)
    for (r = 76; r <= 81; r++)
        this["s2i" + r] = this["s2f" + r] / nacres;


    // small table 1
    s2m39 = s2f20; s2o39 = s2f21;
    s2m40 = s2g20; s2o40 = s2g21;
    s2m41 = s2h20; s2o41 = s2h21;
    s2m42 = s2i20; s2o42 = s2i21;
    s2m43 = s2j20; s2o43 = s2j21;

    // NOTE: s2m44 is not assigned value by user (should there be a way to put a value into this?)
    s2m44 = 0;
    s2m45 = s2f81;

    // small table 2 (calculations)
    s2m48 = 0.04 * s2m39 + 0.25 * s2m40 + 0.42 * s2m41 + 0.25 * s2m42 + 0.04 * s2m43;
    s2m49 = 0.25 * (s2m39 - s2m48) + 0.5 * (s2m40 - s2m48);
    s2m50 = 0.25 * (s2m48 - s2m43) + 0.5 * (s2m48 - s2m42);
    s2m51 = s2m49 * s2m49;
    s2m52 = s2m50 * s2m50;

        // just a copy of above, but s2m replaced by s2o
    s2o48 = 0.04 * s2o39 + 0.25 * s2o40 + 0.42 * s2o41 + 0.25 * s2o42 + 0.04 * s2o43;
    s2o49 = 0.25 * (s2o39 - s2o48) + 0.5 * (s2o40 - s2o48);
    s2o50 = 0.25 * (s2o48 - s2o43) + 0.5 * (s2o48 - s2o42);
    s2o51 = s2o49 * s2o49;
    s2o52 = s2o50 * s2o50;

    // small table 3
    s2m54 = (Math.pow(s2m48, 2) * s2o51) + Math.pow(s2o48 - s2m44, 2) * s2m51;
    s2m55 = (Math.pow(s2m48, 2) * s2o51) + Math.pow(s2o48 - s2m44, 2) * s2m52;
    s2m56 = Math.sqrt(s2m54);

    s2o54 = (Math.pow(s2m48, 2) * s2o52) + Math.pow(s2o48 - s2m44, 2) * s2m52;
    s2o55 = (Math.pow(s2m48, 2) * s2o52) + Math.pow(s2o48 - s2m44, 2) * s2m51;
    s2o56 = Math.sqrt(s2o54);

    // small table 4
    s2m58 = Math.sqrt(s2m55);
    s2m59 = 0.66 * s2m56 + 0.17 * s2m58 + 0.17 * s2o58;

    s2o58 = Math.sqrt(s2o55);
    s2o59 = 0.66 * s2o56 + 0.17 * s2m58 + 0.17 * s2o58;

    // small table 5 - Calculation of NR and for Z values
    // NOTE: This is a very bad table, no similar formulas
    s2m63 = s2o41;
    s2m64 = s2m41;
    s2m65 = s2m68 + 0.33 * (s2o69 - s2o68);
    s2m66 = s2f81;
    s2m67 = s2m65 - s2m66;
    s2m68 = s2m38 * s2m48 * s2o48;
    s2m69 = s2m68 - s2m66;

    s2o63 = s2m69 - s2m67;
    s2o64 = s2m38 * s2m56;
    s2o65 = s2m38 * s2o56;
    s2o66 = s2m38 * s2m58;
    s2o67 = s2m38 * s2o58;
    s2o68 = s2m38 * s2m59;
    s2o69 = s2m38 * s2o59;

    // NOTE: the last small table will be done later

    // expected breakeven table (col h)
    tmp = s2m48 * nacres;
    for (r = 76; r <= 81; r++)
        this["s2h" + r] = this["s2f" + r] / tmp;

    // expected return table
    s2c90 = s2m48;
    s2e90 = s2c90 * nacres;
    s2g90 = s2o48;
    s2i90 = s2g90 * s2e90;

    // small table 6 - the largest and with the most compex formulas
    // coninuing

    //////////////////////////////////////////////////////////////////////////
    ///////////// NOTE NOTE NOTE NOTE NOTE ///////////////////////////////////
    ///////////// These are the most complex formulas. Debug carefully ///////
    //////////////////////////////////////////////////////////////////////////

	// Edited by Mustaq...

    // RISK RATED RETURNS OVER TOTAL COST
    // Added by Mustaq...

	s2d100= s2m69+1.5*s2o68;
	s2e100= s2m69+s2o68;
	s2f100= s2m69+0.5*s2o68;
	s2g100= s2m69;
	s2h100= s2m69-0.5*s2o69;
	s2i100= s2m69-s2o69;
	s2j100= s2m69-1.5*s2o69;
	
	
	// edited by mursalin
	s2m71 = s2d100 >= s2m67;
    s2m73 = s2g100 >= s2m67;
    s2m75 = s2j100 >= s2m67;

    s2n71 = Math.abs((s2d100 - s2m69) / (s2m71 ? s2o68 : s2o69));
    s2n73 = Math.abs((s2g100 - s2m69) / (s2m73 ? s2o68 : s2o69));
    s2n75 = Math.abs((s2j100 - s2m69) / (s2m75 ? s2o68 : s2o69));

   	// regrouped for easiness
    s2o71 = Math.min(2.5, Math.abs((s2d100 - (s2m67 + s2o63 * Math.abs(s2d100 - s2m67) / Math.abs((s2m71 ? s2o68 + s2o63 : s2o69 - s2o63))*Math.min(1, s2n71))) / (Math.min(1.52, s2n71) / 1.52 * (s2m71 ? s2o64 : s2o65) + (1.52 - Math.min(1.52, s2n71)) / 3.04 * s2o66 + (1.52 - Math.min(1.52, s2n71)) / 3.04 * s2o67)));
    s2o73 = Math.min(2.5, Math.abs((s2g100 - (s2m67 + s2o63 * Math.abs(s2g100 - s2m67) / Math.abs((s2m73 ? s2o68 + s2o63 : s2o69 - s2o63))*Math.min(1, s2n73))) / (Math.min(1.52, s2n73) / 1.52 * (s2m73 ? s2o64 : s2o65) + (1.52 - Math.min(1.52, s2n73)) / 3.04 * s2o66 + (1.52 - Math.min(1.52, s2n73)) / 3.04 * s2o67)));
    s2o75 = Math.min(2.5, Math.abs((s2j100 - (s2m67 + s2o63 * Math.abs(s2j100 - s2m67) / Math.abs((s2m75 ? s2o68 + s2o63 : s2o69 - s2o63))*Math.min(1, s2n75))) / (Math.min(1.52, s2n75) / 1.52 * (s2m75 ? s2o64 : s2o65) + (1.52 - Math.min(1.52, s2n75)) / 3.04 * s2o66 + (1.52 - Math.min(1.52, s2n75)) / 3.04 * s2o67)));

    s2o72 = Math.min(2.5, Math.abs((s2d100 - s2m69) / (Math.min(1.52, s2n71) / 1.52 * (s2m71 ? s2o64 : s2o65) + (1.52 - Math.min(1.52, s2n71)) / 3.04 * s2o66 + (1.52 - Math.min(1.52, s2n71)) / 3.04 * s2o67)));
    s2o74 = Math.min(2.5, Math.abs((s2g100 - s2m69) / (Math.min(1.52, s2n73) / 1.52 * (s2m73 ? s2o64 : s2o65) + (1.52 - Math.min(1.52, s2n73)) / 3.04 * s2o66 + (1.52 - Math.min(1.52, s2n73)) / 3.04 * s2o67)));
    s2o76 = Math.min(2.5, Math.abs((s2j100 - s2m69) / (Math.min(1.52, s2n75) / 1.52 * (s2m75 ? s2o64 : s2o65) + (1.52 - Math.min(1.52, s2n75)) / 3.04 * s2o66 + (1.52 - Math.min(1.52, s2n75)) / 3.04 * s2o67)));

    for (r = 71; r <= 76; r++)
        this["s2p" + r] = 1 / (1 + (0.2316419 * this["s2o" + r]));

    for (r = 71; r <= 76; r++)
        this["s2q" + r] = 0.398942281 * Math.pow(2.71828, (-Math.pow(this["s2o" + r], 2) / 2));

    for (r = 71; r <= 76; r++)
    {
        cp = this["s2p" + r];
        cq = this["s2q" + r];
        this["s2r" + r] = cq * (0.31938153 * cp -
                                  0.356563782 * Math.pow(cp, 2) +
                                  1.781477937 * Math.pow(cp, 3) -
                                  1.821255978 * Math.pow(cp, 4) +
                                  1.330274429 * Math.pow(cp, 5));
    }

    // NOTE: s73 is suspicious

    s2s71 = s2e100 >= s2m67;
    s2s73 = s2h100 >= s2m67;
    s2s75 = 0 >= s2m67;

    s2t71 = Math.abs((s2e100 - s2m69) / (s2s71 ? s2o68 : s2o69));
    s2t73 = Math.abs((s2h100 - s2m69) / (s2s73 ? s2o68 : s2o69));
    s2t75 = Math.abs((               0 - s2m69) / (s2s75 ? s2o68 : s2o69));
    
    s2u71 = Math.min(2.5,Math.abs((s2e100-(s2m67+s2o63*Math.abs(s2e100-s2m67)
    			/Math.abs((s2s71? s2o68+s2o63 : s2o69-s2o63))*Math.min(1,s2t71)))
    			/(Math.min(1.52,s2t71)/1.52*(s2s71? s2o64 : s2o65)+(1.52-Math.min(1.52,s2t71))/3.04*s2o66
    			+(1.52-Math.min(1.52,s2t71))/3.04*s2o67)))

    s2u73 = Math.min(2.5,Math.abs((s2h100-(s2m67+s2o63*Math.abs(s2h100-s2m67)
				/Math.abs((s2s73? s2o68+s2o63 : s2o69-s2o63))
				*Math.min(1,s2t73)))/(Math.min(1.52,s2t73)/1.52*(s2s73? s2o64 : s2o65)
				+(1.52-Math.min(1.52,s2t73))/3.04*s2o66+(1.52-Math.min(1.52,s2t73))/3.04*s2o67)))

    s2u75 = Math.min(2.5,Math.abs((0-(s2m67+s2o63*Math.abs(0-s2m67)
    			/Math.abs((s2s75? s2o68+s2o63 : s2o69-s2o63))
				*Math.min(1,s2t75)))/(Math.min(1.52,s2t75)/1.52*(s2s75? s2o64 : s2o65)
				+(1.52-Math.min(1.52,s2t75))/3.04*s2o66+(1.52-Math.min(1.52,s2t75))/3.04*s2o67)))


    s2u72 = Math.min(2.5,Math.abs((s2e100-s2m69)/(Math.min(1.52,s2t71)/1.52
    			*(s2s71? s2o64 : s2o65)+(1.52-Math.min(1.52,s2t71))/3.04*s2o66
    			+(1.52-Math.min(1.52,s2t71))/3.04*s2o67)))

    s2u74 = Math.min(2.5,Math.abs((s2h100-s2m69)/(Math.min(1.52,s2t73)/1.52
    			*(s2s73? s2o64 : s2o65)+(1.52-Math.min(1.52,s2t73))/3.04*s2o66
				+(1.52-Math.min(1.52,s2t73))/3.04*s2o67)))

    s2u76 = Math.min(2.5,Math.abs((0-s2m69)/(Math.min(1.52,s2t75)/1.52
    			*(s2s75? s2o64 : s2o65)+(1.52-Math.min(1.52,s2t75))/3.04*s2o66
    			+(1.52-Math.min(1.52,s2t75))/3.04*s2o67)))


    for (r = 71; r <= 76; r++)
        this["s2v" + r] = 1 / (1 + (0.2316419 * this["s2u" + r]));


    for (r = 71; r <= 76; r++)
        this["s2w" + r] = 0.398942281 * Math.pow(2.71828, (-Math.pow(this["s2u" + r], 2) / 2));

    for (r = 71; r <= 76; r++)
    {
        cw = this["s2w" + r];
        cv = this["s2v" + r];
        this["s2x" + r] = cw * (0.31938153  * cv -
                                  0.356563782 * Math.pow(cv, 2) +
                                  1.781477937 * Math.pow(cv, 3) -
                                  1.821255978 * Math.pow(cv, 4) +
                                  1.330274429 * Math.pow(cv, 5));
    }

    s2y71 = s2f100 >= s2m67;
    s2y73 = s2i100 >= s2m67;

    s2z71 = Math.abs((s2f100 - s2m69) / (s2y71 ? s2o68 : s2o69));
    s2z73 = Math.abs((s2i100 - s2m69) / (s2y73 ? s2o68 : s2o69));


    s2aa71 = Math.min(2.5,Math.abs((s2f100-(s2m67+s2o63*Math.abs(s2f100-s2m67)
    			/Math.abs((s2y71? s2o68+s2o63 : s2o69-s2o63))
    			*Math.min(1,s2z71)))/(Math.min(1.52,s2z71)/1.52*(s2y71? s2o64 : s2o65)
    			+(1.52-Math.min(1.52,s2z71))/3.04*s2o66+(1.52-Math.min(1.52,s2z71))/3.04*s2o67)))

    s2aa73 = Math.min(2.5,Math.abs((s2i100-(s2m67+s2o63*Math.abs(s2i100-s2m67)
    			/Math.abs((s2y73? s2o68+s2o63 : s2o69-s2o63))
    			*Math.min(1,s2z73)))/(Math.min(1.52,s2z73)/1.52*(s2y73? s2o64 : s2o65)
    			+(1.52-Math.min(1.52,s2z73))/3.04*s2o66+(1.52-Math.min(1.52,s2z73))/3.04*s2o67)))

    s2aa72 = Math.min(2.5,Math.abs((s2f100-s2m69)/(Math.min(1.52,s2z71)/1.52
    			*(s2y71? s2o64 : s2o65)+(1.52-Math.min(1.52,s2z71))/3.04*s2o66
    			+(1.52-Math.min(1.52,s2z71))/3.04*s2o67)))

    s2aa74 = Math.min(2.5,Math.abs((s2i100-s2m69)/(Math.min(1.52,s2z73)/1.52
    			*(s2y73? s2o64 : s2o65)+(1.52-Math.min(1.52,s2z73))/3.04*s2o66
    			+(1.52-Math.min(1.52,s2z73))/3.04*s2o67)))


    for (r = 71; r <= 74; r++)
        this["s2ab" + r] = 1 / (1 + (0.2316419 * this["s2aa" + r]))

    for (r = 71; r <= 74; r++)
        this["s2ac" + r] = 0.398942281 * Math.pow(2.71828, (-Math.pow(this["s2aa" + r], 2) / 2));

    for (r = 71; r <= 74; r++)
    {
        cab = this["s2ab" + r];
        cac = this["s2ac" + r];
        this["s2ad" + r] = cac * (0.31938153 * cab -
                                    0.356563782 * Math.pow(cab, 2) +
                                    1.781477937 * Math.pow(cab, 3) -
                                    1.821255978 * Math.pow(cab, 4) +
                                    1.330274429 * Math.pow(cab, 5));
    }
    
    s2d101= (s2n71<1? (s2m71? s2r71 : 1-s2r71)  : (s2m71? s2r72 : 1-s2r72));
	s2e101= (s2t71<1? (s2s71? s2x71 : 1-s2x71)  : (s2s71? s2x72 : 1-s2x72));
	s2f101= (s2z71<1? (s2y71? s2ad71 : 1-s2ad71): (s2y71? s2ad72 : 1-s2ad72));
	s2g101= (s2n73<1? (s2m73? s2r73 : 1-s2r73)  : (s2m73? s2r74 : 1-s2r74));
	s2h101= (s2t73<1? (s2s73? s2x73 : 1-s2x73)  : (s2s73? s2x74 : 1-s2x74));
	s2i101= (s2z73<1? (s2y73? s2ad73 : 1-s2ad73): (s2y73? s2ad74 : 1-s2ad74));
	s2j101= (s2n75<1? (s2m75? s2r75 : 1-s2r75)  : (s2m75? s2r76 : 1-s2r76));

	s2d102= (s2n71<1? (s2m71? 1-s2r71 : s2r71)  : (s2m71? 1-s2r72 : s2r72));
	s2e102= (s2t71<1? (s2s71? 1-s2x71 : s2x71)  : (s2s71? 1-s2x72 : s2x72));
	s2f102= (s2z71<1? (s2y71? 1-s2ad71 : s2ad71): (s2y71? 1-s2ad72 : s2ad72));
	s2g102= (s2n73<1? (s2m73? 1-s2r73 : s2r73)  : (s2m73? 1-s2r74 : s2r74));
	s2h102= (s2t73<1? (s2s73? 1-s2x73 : s2x73)  : (s2s73? 1-s2x74 : s2x74));
	s2i102= (s2z73<1? (s2y73? 1-s2ad73 : s2ad73): (s2y73? 1-s2ad74 : s2ad74));
	s2j102= (s2n75<1? (s2m75? 1-s2r75 : s2r75)  : (s2m75? 1-s2r76 : s2r76));

	s2e104= (s2t75<1? (s2s75? s2x75   : 1-s2x75): (s2s75? s2x76 : 1-s2x76));
	s2j104= s2m38*s2h20*s2h21-s2f81;
}


// functions for both the sheet 3 & 5
// the function just make a floating point function 2 digit after decemal point
function Restore(Obj)
{
	Obj.value = FixIt(this[Obj.name]);
}

function SaveFloat(Obj)
{
	var newVal = parseFloat(Obj.value);

	if (isNaN(newVal))
	{
		alert("Error in input. Old value will be restored.");
		Restore(Obj);
		Obj.focus();
	}
	else if (newVal < 0)
	{
		alert("The value can not be negative");
		Restore(Obj);
		Obj.focus();
	}
	else
		Obj.value = FixIt(this[Obj.name] = newVal);
}

function SaveInt(Obj)
{	
	var newVal = parseFloat(Obj.value);

	if (isNaN(newVal))
	{
		alert("Invalid input");
		Restore(Obj);
		Obj.focus();
	}
	else if (newVal < 0)
	{
		alert("The value can not be negative");
		Restore(Obj);
		Obj.focus();
	}
	else
		Obj.value = this[Obj.name] = Math.floor(newVal);
}

// functios for sheet 3
function VARSofShee3()
{
	s3f7 = s3f5 / 15 * s3f6;
	s3h10 = s3f8 / s3f9 * s3f7;
	s3h11 = s3h10 * 0.15;
	s3h12 = ((0.005 * s4f41)/s3f9)/5;
	s3h13 = s3d13 * s3g13;
	s3h15 = s3h10 + s3h11 + s3h12 + s3h13;
}


//-- sheet: 4 - fixed_cost: Functions
function s4calc()
{
	var i, sum;

	for( i= 14; i<= 37; i++ )
	{
		if( ( (i>22) && (i<26) ) || (i==31) )
			continue;
		if( i== 30 ) /* Special for Land: No depreciation */
			this["s4g"+i]= this["s4f"+i];
		else if( i< 32 )
			this["s4g"+i]=( 0.2 * this["s4f"+i] );
/*		else if( i>= 32 ) Special for Irrigation: Salvage= 0, text-crtl removed * /
			this["s4g"+i]= 0;                                                   */
		this["s4i"+i]=( ( this["s4f"+i] >0 )? this["s4e"+i] * ( this["s4f"+i]-this["s4g"+i] ) / this["s4h"+i] : 0 );
	}

	s4f39= s4f14 * s4e14 + s4f15 * s4e15 + s4f16 * s4e16 + s4f17 * s4e17 + s4f18 * s4e18 + s4f19 * s4e19 + s4f20 * s4e20 + s4f21 * s4e21 + s4f22 * s4e22;
	s4g39= s4g14 * s4e14 + s4g15 * s4e15 + s4g16 * s4e16 + s4g17 * s4e17 + s4e18 * s4g18 + s4e19 * s4g19 + s4e20 * s4g20 + s4e21 * s4g21 + s4e22 * s4g22;
	s4f40= s4f26 * s4e26 + s4f27 * s4e27 + s4f28 * s4e28 + s4f29 * s4e29 + s4f30 * s4e30;
	s4g40= s4g26 * s4e26 + s4g27 * s4e27 + s4g28 * s4e28 + s4g29 * s4e29 + s4g30 * s4e30;
	s4f41= s4f32 * s4e32 + s4f33 * s4e33 + s4f34 * s4e34 + s4f35 * s4e35 + s4f36 * s4e36 + s4f37 * s4e37;
	s4g41= s4g32 * s4e32 + s4g33 * s4e33 + s4g34 * s4e34 + s4g35 * s4e35 + s4g36 * s4e36 + s4g37 * s4e37;

	sum= 0;
	for( i= 14; i<= 22; i++ )
		sum+= this["s4i"+i];
	s4j43= sum;
	sum= 0;
	for( i= 26; i<= 30; i++ )
		sum+= this["s4i"+i];
	s4j44= sum;
	sum= 0;
	for( i= 32; i<= 37; i++ )
		sum+= this["s4i"+i];
	s4j45= sum;

	s4j47= ( s4f39 + s4g39 )/2 * s4g8;
	s4j48= ( s4f40 + s4g40 )/2 * s4g8;
	s4j49= ( s4f41 + s4g41 )/2 * s4g8;

	s4j51= ( s4f39 + s4g39 )/2 * s4h51;
	s4j52= ( s4f40 + s4g40 )/2 * s4h52;
	s4j53= ( s4f41 + s4g41 )/2 * s4h53;

	sum= 0;
	for( i= 43; i<= 52; i++ )
	{
		if( ( i!= 46 ) && (i!= 50 ) )
			sum+= this["s4j"+i];
	}
	s4j55= sum;

	s4j57= ( s4j43 + s4j47 + s4j51 ) / s4g6;
	s4j58= ( s4j44 + s4j48 + s4j52 ) / s4g6;
	s4j59= ( s4j45 + s4j49 + s4j53 ) / s4g7;

}


// functios for sheet 5 -- fixed payment
function Pmt(r, t, n)
{
	var rateR = r / 100;	
	
	var totalInt = Math.pow(rateR + 1, t);
	
	if (1 == totalInt)
		return 0;
	else
		return ((n / 10000) * totalInt * rateR) / (totalInt - 1);
}

function DoTbl1RowCalc(row)
{
	var ColVal = new Array('e', 'f', 'g', 'h', 'i'), i, total, txt;

	var ev, fv, gv, hv, iv, jv;

	ev = this["s5e"+row], fv = this["s5f"+row];
	gv = this["s5g"+row], hv = this["s5h"+row];
	iv = this["s5i"+row];

	this["s5j"+row] = Pmt(iv, hv, fv * gv * ev);
}

function DoTbl1ColCalc()
{
	var total, i;

	for (i = 15, total = 0; i <= 31; i++)
	{
		total += this["s5j" + i];
	}

	return (this["s5j" + 33] = total);
}

function DoTbl2ColCalc()
{
	s5j45 = s5j33 + s5j39 + s5j40 + s5j41 + s5j42 + s5j43;
	s5j47 = s4j51 + s4j52; // from sheet 4
	s5j48 = s5j45 + s5j47;
	s5j49 = s5j48 / s5g6;
}

function ValueFromOtherSheet()
{
	var i, j;
	var OtherSheet = new Array(14, 15, 16, 17, 18, 19, 20, 21, 22, 26, 28, 32, 33, 34, 35, 36, 37);
	var ThisSheet = new Array(15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31);
//	var ColChar = new Array("e", "f");


	// variable initialization
	for (i = 0; i < OtherSheet.length; i++)	
	{
			var txt = "s4e" + OtherSheet[i];
			var txt1 = "s5e" + ThisSheet[i];			
			this[txt1] = 100 * this[txt];

			var txt = "s4f" + OtherSheet[i];
			var txt1 = "s5f" + ThisSheet[i];			
			this[txt1] = this[txt];
	}
}

function VARSofShee5()
{
	ValueFromOtherSheet();
	
	for (i = 15; i <= 31; i++)
		DoTbl1RowCalc(i);
	DoTbl1ColCalc();
	DoTbl2ColCalc();
}


//-- sheet: 6 - machine_cost: Functions

function s6calc()
{
	var sum0, sum1, sum2, sum3, sum4, sum5;

//		s6r6= s6r1 + s6r2 + s6r3 + s6r4 + s6r5;


	/*** Table 1 *************************************************/

	s6c7= s4f14 * s6r6;
	s6e7= s6c7 * s6d7;
	s6f7= s4f14 / 1000 * s6l7;

	s6c8= s6b8 * s6r6;
	s6e8= s6c8 * s6d8;
	s6f8= s6b8 / 1000 * s6l8;

	for( i= 11; i<= 53; i++ )
	{
		if( (i!=17) && (i!=23) && (i!=30) && (i!=32) && (i!=33) && (i!=34) && (i!=47) && (i!=48) )
		{
			this["s6c"+i]= this["s6b"+i] * s6r6;
			this["s6e"+i]= this["s6c"+i] * this["s6d"+i];
			this["s6f"+i]= this["s6b"+i] / 1000 * this["s6l"+i];
		}
	}

	sum0= sum1= 0;
	for( i= 7; i<= 53; i++ )
	{
		if( (i!=9) && (i!=10) && (i!=17) && (i!=23) && (i!=30) && (i!=32) && (i!=33) && (i!=34) && (i!=47) && (i!=48) )
		{
			sum0+= this["s6e"+i];
			sum1+= this["s6f"+i];
		}
		else if( i== 32 )
		{
			s6e32= sum0;
			s6f32= sum1;
		}
	}
	s6e54= sum0;
	s6e55= s6e54 / s6c2;


	/*** Table 2 *************************************************/

    sum0= sum2= 0;
	for( i= 11; i<= 31; i++ )
	{
		if( (i!=17) && (i!=22) && (i!=23) && (i!=29) && (i!=30) )
		{
			this["s6n"+i]= this["s6j"+i] * this["s6m"+i];
			sum0+= this["s6n"+i];
			this["s6p"+i]= this["s6j"+i] * ( 1 / this["s6k"+i] ) * 1.2;
			if( i!= 21 )
				this["s6p"+i]= this["s6j"+i] * ( 1 / this["s6k"+i] ) * 1.2;
			else
				this["s6p"+i]= this["s6j"+i] * ( 1 / this["s6k"+i] ) * 1.2 * 4;
			sum2+= this["s6p"+i];
		}
	}
	s6n32= sum0;
	s6p32= sum2;

	sum1= sum3= 0;
	for( i= 35; i<= 53; i++ )
	{
		if( (i!=47) )
		{
			this["s6n"+i]= this["s6j"+i] * this["s6m"+i];
			sum1+= this["s6n"+i];
			if( i!= 49 )
				this["s6p"+i]= this["s6j"+i] * ( 1 / this["s6k"+i] ) * 1.2;
			else
				this["s6p"+i]= this["s6j"+i] * ( 1 / this["s6k"+i] ) * 1.2 * 3;
			sum3+= this["s6p"+i];
		}
	}
	s6n54= sum1;
	s6p54= sum3;

	sum4= sum5= 0;
	for( i= 10; i<= 53; i++ )
	{
		if( i== 10 )
		{
			s6o10= ( s4f14 / 1000 / s6k12 * s6l7 ) * s6j12;
			/* sum4+= this["s6o"+i]; not needed */
		}
		else if( ( (i>=11) && (i<=15) ) || (i==31) || (i==38) || (i==39) || (i==46) )
		{
			this["s6o"+i]= ( s4f14 / 1000 / this["s6k"+i] * s6l7 +
						this["s6b"+i] / 1000 / this["s6k"+i] * this["s6l"+i] ) * this["s6j"+i];
			sum4+= this["s6o"+i];
		}
		else if( (i==16) || (i==18) || (i==19) || (i==21) || (i==25) || (i==27) || (i==28) ||
					( (i>=41) && (i<=44) ) || ( (i>=49) && (i<=53) ) )
		{
			this["s6o"+i]= ( s6b8 / 1000 / this["s6k"+i] * s6l8 +
						this["s6b"+i] / 1000 / this["s6k"+i] * this["s6l"+i] ) * this["s6j"+i];
			sum4+= this["s6o"+i];
		}
		else if( i== 48  )
		{
			this["s6o"+i]= ( s6b8 / 1000 / this["s6k"+i] * s6l8 ) * this["s6j"+i];
			sum4+= this["s6o"+i];
		}
		else if( (i==26) || (i==40) || (i==45) )
		{
			this["s6o"+i]= ( this["s6b"+i] / 1000 / this["s6k"+i] * this["s6l"+i] ) * this["s6j"+i];
			sum4+= this["s6o"+i];
		}
		else if( i== 20 )
		{
			s6o20= ( s6f15 / 1000 / s6k20 * s6l8 + s6b20 / 1000 / s6k20 * s6l20 ) *s6j20;
			sum4+= this["s6o"+i];
		}
		else if( i==22 )
		{
			s6o22= s4f15;
			sum4+= this["s6o"+i];
		}
		else if( i==24 )
		{
			s6o24= ( s4f14 / 1000 / s6k24 * s6l7 +
						s6b15 / 1000 / s6k24 * s6l15 +
						s6b24 / 1000 / s6k24 * s6l24 ) * s6j24;
			sum4+= this["s6o"+i];
		}
		else if( i== 35 )
		{
			s6o35= ( s6b35 / 1000 / s6k35 * s6l35 + s6b37 / 1000 / s6k35 * s6l37 ) * s6j35;
			sum4+= this["s6o"+i];
		}
		else if( i== 36 )
		{
			s6o36= ( s6b35 / 1000 / s6k36 * s6l35 + s6b36 / 1000 / s6k36 * s6l36 ) * s6j36;
			sum4+= this["s6o"+i];
		}
		else if( i== 37 )
		{
			s6o35= ( s6b35 / 1000 / s6k37 * s6l36 + s6b36 / 1000 / s6k37 * s6l36 ) * s6j37;
			sum4+= this["s6o"+i];
		}
		else if( i== 32 )
		{
			sum5= sum4;
			sum4= 0;
		}
	}
	s6o32= sum5;
	s6o54= sum4;

	s6n56= sum0 + sum1;
	s6p56= sum2 + sum3;
	s6o56= sum4 + sum5;

}