A Little House Cleaning
- Posted by Senator Aug 31, 2018
- 1471 views
-- -- DiluteSolutions.e -- include std/console.e function DiluteSolution( atom C1=5.7, atom V2 = 16, atom C2 = 0.057, atom V1 = 0) --default is PureBright Beach diluted to the Sodium HypoChlorite content of Anasept "Wound Wash" if V1=0 then -- returns % volume of stock solution required to make V2 C2 return (C2 * V2)/C1 elsif C1=0 then return (C2 * V2)/V1 elsif V2=0 then return (C1*V1)/C2 elsif C2=0 then return (C1*V1)/V2 end if end function constant -- %Sodium Hypoclorite -------------------------------------------------------------------------- C = 8.25, -- Clorox P = 5.7, -- PureBright potency A = 0.057, -- Anasept spray (germicide wound cleaner) C2 = 6.5, -- Clorox Healthcare Bleach Germicidal Cleaner ---------------------------------------------------------------------------------------------------------- -- price/oz Pppu = 19.05/(128*6), -- raw price per unit for PureBright Cppu = 10.40/64, -- raw price per unit for Clorox Appu = 15.95/15, -- raw price per unit for Anasept C2ppu = 29.99/128, -- raw price per unit for Clorox Healthcare... ---------------------------------------------------------------------------------------------------------- PrpC = DiluteSolution(5.7, 1, 8.25, 0), -- 1.447368421 PrpA = DiluteSolution(5.7, 1, 0.057, 0), -- 0.01 PrpC2= DiluteSolution(5.7, 1, 6.5, 0), -- 1.140350877 PapC = PrpC*Pppu, -- PureBright adjusted price compared to Clorox PapC2 = PrpC2*Pppu, -- PureBright adjusted price compared to Clorox Healthcare .. PpC = P/C, -- PureBright Potency compared to Clorox PpC1 = P/C2, floz_tsp = 6 -- convert US fluid oz to US tsp atom a = DiluteSolution(), b=a*floz_tsp sequence c = sprintf("$%1.3f", a*Pppu) function PricePerUnit( sequence ProductLabel, atom price, integer units, sequence UnitLabel, atom p) sequence ppu = sprintf("%s %d %s @ $%2.2f = $%2.2f per %s: Sodium Hypochlorite = %0.3f", {ProductLabel, units, UnitLabel, price, price/units, UnitLabel, p}) return ppu&'%' end function display("\n\n[1] [2] [3] [4] [5] [6]",{PricePerUnit("PureBright Bleach ", 19.05, 128*6, "oz", P)}) -- $0.02/oz display("[1] [2] [3] [4] [5] [6]",{PricePerUnit("Clorox Bleach ", 10.40, 64, "oz", C)}) -- $0.16/oz display("[1] [2] [3] [4] [5] [6]",{PricePerUnit("Clorox Health Care", 29.99, 128, "oz", C2)}) -- $0.23/oz display("[1] [2] [3] [4] [5] [6]",{PricePerUnit("Anasept ", 15.95, 15, "oz", A)}) -- $1.06/oz printf(1, "\nPureBright has %g times the Sodium Hypoclorite content of Anasept\n", P/A) display("[1] fluid oz ([2] tsp) of PureBright makes a 16 fluid oz solution", {a,b}) display("with Sodium Hypochlorite content comparable to that of Anasept", {}) display("Antimicrobial Skin & Wound Cleaner which costs ~$16", {}) display("the cost of [1] tsp of PureBright = [2]", {b,c}) sequence tmp = sprintf("\nPureBright = %d%s of the Sodium Hypochlorite content of Clorox",{PpC*100, '%'}) display("[1][2]", {tmp}) tmp = sprintf("$%2.2f", {PapC}) display("PureBright adjusted price = [1] per oz (compared to Clorox)", {tmp}) tmp = sprintf("%d", {Cppu/PapC}) display("\nClorox cost [1] times as much as PureBright. But you must use", {tmp}) tmp = sprintf("%.2g%s more PureBright to match Sodium Hypochlorite Content of Clorox", {PrpC-1,'%'}) --{(1-(P/C))*100,'%'}) display("[1]\n\n", {tmp})
PureBright Bleach 768 oz @ $19.05 = $0.02 per oz: Sodium Hypochlorite = 5.700% Clorox Bleach 64 oz @ $10.40 = $0.16 per oz: Sodium Hypochlorite = 8.250% Clorox Health Care 128 oz @ $29.99 = $0.23 per oz: Sodium Hypochlorite = 6.500% Anasept 15 oz @ $15.95 = $1.06 per oz: Sodium Hypochlorite = 0.057% PureBright has 100 times the Sodium Hypoclorite content of Anasept 0.16 fluid oz (0.96 tsp) of PureBright makes a 16 fluid oz solution with Sodium Hypochlorite content comparable to that of Anasept Antimicrobial Skin & Wound Cleaner which costs ~$16 the cost of 0.96 tsp of PureBright = $0.004 PureBright = 69% of the Sodium Hypochlorite content of Clorox PureBright adjusted price = $0.04 per oz (compared to Clorox) Clorox cost 4 times as much as PureBright. But you must use 0.45% more PureBright to match Sodium Hypochlorite Content of Clorox