Cement, Energy and Environment

BHT.Text = Format ((PIT I 4), "# # # #. # #") BUW.Text =Format ((2.5 *Bill), "# # # #. # #") BBB.Text = Format ((0.425 *BHT), "# # # #. # #") Hl.Text =Format ((0.375 *BHT), "# # # #. # #") H2.Text = Format ((0.625 *BHT), "# # # #. # #") H3.Text = Format ((0.5125 *BHT), "# # # #. # #") H4.Text =Format ((049375 *BHT), "# # # #. # #") BBT.Text = Format ((Bill1106.67), "# # # #. # #") TDT.Text =Format ((0.0133 *H),"####.##") TDL. Text= Format (C 1.292 *. TDD), "# # # #. # #") BL.Text. ==Format (((2 *H)+ 3.14 *TDD)), "# # # #") n . Text= Format ((BLI PIT), "# # # #") MTI = (BCAP * n *DEN) I 1000 NBR = (CAP I MTI) ODRD = (3.14 *TDD) NDRBR = (BLI ODRD) V2.Text =Format (((NDRBR *NBR)I60), "# # # #. # #") SR.Text = Format ((V1 I V2), "# # # #. # #") BWPM = (0.22944 *H) BW.Text = Format ((0.0412 *BWPM), "# # # #. # #") BT.Text =Format ((0.01765 * BW), "# # # #. # #") BWT.Tex t = Format ((BWPM * BL), "# # # #. # #':) BUWT.Text =Format ((0.9685 *BWPM), "# # # # ") TBWT = (n * BUWT) MWT = (0.375 *n * BCAP *DEN) TSL + (2* (BWT + TBWT + MWT)) MLP = (CAP *H) I 367 FOP = (0.07 *MLP) MPWM = (BWPM + (TBWT I BL) + (MWT I BL)) DWMP = (0.000000687 *MPWM * BCAP *H) TP.Text = Format ((MLP +FOP+ DWMP), "# # # #. # #") MP.Text = Format ((1.26 *TP), "# # # #. # #") MBM = (TSL *TDL) I 2 TSD. Text = Format ((0.1895 * (((1.5 *MBM * 10000)"2) + ((9.55 * TP * 1000000 I V2)"2)) "0.167), "# # # #. # #") d. Text = TSD OD.Text = Format ((1.79 *d), "# # # #. # #") E.Text + Format ((1.192 *d), "# # # #. # #") B.Text =Forma t ((0.0292 *d), "# # # #. # #") r. Text= Format ((0.0292 *d),"####.##") End Sub