* @copyright 2008 Bartolomé Sintes Marco
* @license http://www.gnu.org/licenses/agpl.txt AGPL 3 or later
* @version 2008-02-10
* @link https://www.mclibre.org
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see .
*/
function cabecera($texto)
{
print "\n";
print "\n";
print "\n";
print " \n";
print " \n";
print " Convertidor de valores numéricos a cadena (simple encoding). ($texto). Google Chart.\n";
print " Ejercicios. PHP. Bartolomé Sintes Marco. www.mclibre.org\n";
print " \n";
print " \n";
print " \n";
print "\n";
print "\n";
print "\n";
print "
Convertidor de valores numéricos a cadena (simple encoding) ($texto)
\n";
print "\n";
}
// Función de recogida de datos
function recoge($key, $type = "")
{
if (!is_string($key) && !is_int($key) || $key == "") {
trigger_error("Function recoge(): Argument #1 (\$key) must be a non-empty string or an integer", E_USER_ERROR);
} elseif ($type !== "" && $type !== []) {
trigger_error("Function recoge(): Argument #2 (\$type) is optional, but if provided, it must be an empty array or an empty string", E_USER_ERROR);
}
$tmp = $type;
if (isset($_REQUEST[$key])) {
if (!is_array($_REQUEST[$key]) && !is_array($type)) {
$tmp = trim(htmlspecialchars($_REQUEST[$key]));
} elseif (is_array($_REQUEST[$key]) && is_array($type)) {
$tmp = $_REQUEST[$key];
array_walk_recursive($tmp, function (&$value) {
$value = trim(htmlspecialchars($value));
});
}
}
return $tmp;
}
function recogeNumero($var, $inicial, $minimo, $maximo) {
$tmp = recoge($var);
if (!is_numeric($tmp)) {
return $inicial;
} elseif ($tmp < $minimo) {
return $minimo;
} elseif ($tmp > $maximo) {
return $maximo;
} else {
return $tmp;
}
}
// Recoge el número de datos y lo valida, aumenta o reduce
$numeroValoresInicial = 4;
$numeroValoresMinimo = 2;
$numeroValoresMaximo = 15;
$numeroValores = recogeNumero("numeroValores", $numeroValoresInicial,
$numeroValoresMinimo, $numeroValoresMaximo);
if (isset($_REQUEST["anyadir"]) && ($numeroValores<$numeroValoresMaximo)) {
$numeroValores++;
} elseif (isset($_REQUEST["quitar"]) && ($numeroValores>$numeroValoresMinimo)) {
$numeroValores--;
}
// Recoge valores numéricos y los valida
$valores = recoge("valores", []);
$okValores = true;
$valores = recoge("valores", []);
$okValores = true;
for ($i=1; $i<$numeroValores; $i++) {
if (!isset($valores[$i])) {
$okValores = false;
} elseif ($valores[$i] != "" && !is_numeric($valores[$i])) {
$okValores = false;
}
// Al hacer clic en Añadir el útlimo valor todavía no existe
if (!isset($_REQUEST["anyadir"])) {
if (!isset($valores[$numeroValores])) {
$okValores = false;
} elseif ($valores[$i] != "" && !is_numeric($valores[$i])) {
$okValores = false;
}
}
}
// Si no se ha hecho clic en Enviar o los valores no son correctos
if (!isset($_REQUEST["enviar"]) || !$okValores) {
if (isset($_REQUEST["enviar"])) {
cabecera("Resultado inválido");
print"
Escribe los valores numéricos (puedes escribir entre "
. "$numeroValoresMinimo y $numeroValoresMaximo valores):
\n";
print "\n";
}
print " \n";
print "\n";
} else {
// Si los valores son correctos se convierten a cadena
cabecera("Resultado válido");
print "
Los datos introducidos son correctos.
\n";
print "\n";
print "
Datos introducidos (* si falta un dato): ";
for ($i=1; $i<=$numeroValores; $i++) {
if ($valores[$i] == "") {
print "* ";
} else {
print "$valores[$i] ";
}
}
print "
\n";
print "\n";
$simpleEncoding = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
// Empiezo buscando un valor cualquiera en la lista de valores
$minimo = $maximo = 0;
$patronValores = "/^[+-]?[0-9]{1,6}$/"; // Este patrón NO admite la cadena vacía
foreach ($valores as $valor) {
if (preg_match($patronValores, $valor)) {
$minimo = $maximo = $valor;
}
}
// Después busco el máximo y el mínimo (las funciones min y max
// no sirven porque puede haber valores vacíos
foreach ($valores as $valor) {
if ($valor != "") {
if ($valor>$maximo) {
$maximo = $valor;
}
if ($valor<$minimo) {
$minimo = $valor;
}
}
}
// Por último se convierten a la cadena
$cadena = "";
if ($maximo == $minimo) {
foreach ($valores as $valor) {
if ($valor == "") {
$cadena .= "_";
} else {
$cadena .= "f";
}
}
} else {
foreach ($valores as $valor) {
if ($valor == "") {
$cadena .= "_";
} else {
$letra = round(($valor-$minimo)/($maximo-$minimo)*61);
$cadena .= $simpleEncoding[$letra];
}
}
}
print "
La cadena correspondiente a estos valores es: $cadena