my $medio=($izquierda+$derecha)<<2;