OpenEuphoria

A Little House Cleaning

• Posted by Senator Aug 31, 2018
• 1988 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