#title: Equações química de titulação

#author: Mendeleev

#let:

VA = [2,3];
VB = [1,2,4];

s sqA    = { decide(#VA,#VB) };
s sqB    = { decide(#VB,#VA) };
n sqC    = #VB*#sqB

#question:

 (A)H#VA anião com valência #VA + (B) catião com valência #VB OH#VB = (C)h2o + sal

 A = #sqA   (do #VA)

 B = #sqB   (do #VB)

 C = #VB

#Sugestion

Nada se perde, nada se cria...

#resolution:
#result

#usepackage
 \usepackage{mhchem}

#perl

sub decide{ my ($a,$b)=@_;
   return mmc($a,$b)/$a ;
}

sub mdc { my ($x, $y) = @_;
  ($x, $y) = ($y, $x % $y) while $y;
  $x;
}

sub mmc { my ($x,$y)=@_; 
  ($x*$y)/mdc($x,$y); 
}