private void InsertarEnHoja(NodoS padre, int index, Sucursal dato)
{
if (padre.hijos[index].estaLleno) //NodoS lleno en el cual quiero insertar
{
if (padre.hijos[index + 1] != null) // ¿Es el hermano correcto?
{
if (padre.hijos[index + 1] != null) //Lleno, entonces partimos el nodo derecho
{
PartirEn23(padre, index, dato, false);
}
else //No esta lleno, entonces hago rotacion a la derecha
{
RotarDerecha(padre, index, dato);
}
}
else if (padre.hijos[index - 1] != null) //no hay hermano derecho, ¿Es el hijo izquierdo?
{
if (padre.hijos[index - 1].estaLleno) //Lleno, entonces partimos el nodo izquierdo
{
PartirEn23(padre, index, dato, false);
}
else//No esta lleno, entonces hago rotacion a la derecha
{
RotarIzquierda(padre, index, dato);
}
}
}
else
{
InsertarNoLleno(padre.hijos[index], dato);
}
}
private void InsertarNodoS(NodoS padre, Sucursal dato)
{
int index = padre.tamaño - 1;
if (padre.tamaño > 0)
{
while (index >= 0 && dato.id < padre.Llaves[index].id)
{
index--;
}
}
index++;
if (raiz.estaLleno)
{
partirRaiz(padre);
InsertarNodoS(raiz, dato);
}
else if (raiz.esHoja)
{
InsertarNoLleno(padre, dato);
}
else if (padre.hijos[index] != null && padre.hijos[index].esHoja)
{
InsertarEnHoja(padre, index, dato);
}
else
{
InsertarNodoS(padre.hijos[index], dato);
}
}
private void RotarDerecha(NodoS padre, int indexhijo, Sucursal dato)
{
int llaveDelIndexPadre;
int tamañoNodoS = padre.hijos[indexhijo].tamaño;
if (indexhijo == 0)
{
llaveDelIndexPadre = 0;
}
else if (indexhijo == tamañoNodoS)
{
llaveDelIndexPadre = tamañoNodoS - 1;
}
else
{
llaveDelIndexPadre = indexhijo;
}
int tamañoNodoSHermano = padre.hijos[indexhijo + 1].tamaño;
//Mover elementos a la hermano derech, entonces hacemos el index 0
for (int j = tamañoNodoSHermano - 1; j >= 0; j--)
{
padre.hijos[indexhijo + 1].Llaves[j + 1] = padre.hijos[indexhijo + 1].Llaves[j];
}
//Si el no es hoja, tengo que moverlo a los hijos
if (!padre.hijos[indexhijo].esHoja)
{
for (int j = tamañoNodoSHermano; j >= 0; j--)
{
padre.hijos[indexhijo + 1].hijos[0] = padre.hijos[indexhijo + 1].hijos[j];
//Ulitmo hijo del nodo esta lleno y enviamos el primero al nodo derecho
padre.hijos[indexhijo + 1].hijos[0] = padre.hijos[indexhijo].hijos[tamañoNodoSHermano];
padre.hijos[indexhijo].hijos[tamañoNodoSHermano] = null;
}
}
padre.hijos[indexhijo + 1].Llaves[0] = padre.Llaves[llaveDelIndexPadre];
padre.hijos[indexhijo + 1].tamaño++;
if (padre.hijos[indexhijo].esHoja && dato.id <padre.Llaves[llaveDelIndexPadre].id &&
dato.id> padre.hijos[indexhijo].Llaves[tamañoNodoS - 1].id)
{
padre.Llaves[llaveDelIndexPadre] = dato;
}
else
{
padre.Llaves[llaveDelIndexPadre] = padre.hijos[indexhijo].Llaves[tamañoNodoS - 1];
padre.hijos[indexhijo].Llaves[tamañoNodoS - 1] = null;
padre.hijos[indexhijo].tamaño--;
InsertarNoLleno(padre.hijos[indexhijo], dato);
}
if (padre.hijos[indexhijo + 1].tamaño == tamañoNodoS)
{
padre.hijos[indexhijo + 1].estaLleno = true;
}
}
private void RotarIzquierda(NodoS padre, int indexhijo, Sucursal dato)
{
int llaveIndexPadre;
if (indexhijo == 0)
{
llaveIndexPadre = 0;
}
else if (indexhijo == tamanioMax)
{
llaveIndexPadre = tamanioMax - 1;
}
else
{
llaveIndexPadre = indexhijo - 1;
}
//Elemento de padre para hijo izquierdo
InsertarNoLleno(padre.hijos[indexhijo - 1], padre.Llaves[llaveIndexPadre]);
if (padre.hijos[indexhijo].esHoja &&
dato.id > padre.Llaves[llaveIndexPadre].id && dato.id < padre.hijos[indexhijo].Llaves[0].id)
{
//Meter dato si padre es mayor que dato y dato es mayor que el hermano derecho
padre.Llaves[llaveIndexPadre] = dato;
}
else
{
//De estar el nodo lleno, a hacerlo mas pequeño
padre.Llaves[llaveIndexPadre] = padre.hijos[indexhijo].Llaves[0];
//Mover los elementos del nodo lleno al izquierdo
int tamañoNodoS = padre.hijos[indexhijo].tamaño;
for (int i = 0; i < tamañoNodoS - 1; i++)
{
padre.hijos[indexhijo].Llaves[i] = padre.hijos[indexhijo].Llaves[i + 1];
}
//Si no es hoja, tengo que mover al hijo
//mover hijo a la izquierdo en campo 1
if (!padre.hijos[indexhijo].esHoja)
{
padre.hijos[indexhijo].hijos[tamañoNodoS] = padre.hijos[indexhijo].hijos[0];
for (int i = 0; i < tamañoNodoS - 1; i++)
{
padre.hijos[indexhijo].hijos[i] = padre.hijos[indexhijo].hijos[i + 1];
}
}
//Eliminar ultimo elemento del nodo lleno
padre.hijos[indexhijo].Llaves[tamañoNodoS - 1] = null;
//Cambiar tamaño
padre.hijos[indexhijo].tamaño--;
padre.hijos[indexhijo].estaLleno = false;
InsertarNoLleno(padre.hijos[indexhijo], dato);
}
}
private void partirRaiz(NodoS actual)
{
int indexMedio = actual.tamaño / 2;
var nuevaRaiz = new NodoS(tamanioMax);
var nuevoNodoS = new NodoS(tamanioMax);
int j = 0;
int i = indexMedio + 1;
if (!actual.esHoja)
{
while (i < tamanioMax - 1)
{
nuevoNodoS.Llaves[j] = actual.Llaves[i];
nuevoNodoS.hijos[j] = actual.hijos[i];
nuevoNodoS.hijos[j].Padre = nuevoNodoS;
actual.Llaves[i] = null;
actual.hijos[i] = null;
actual.tamaño--;
j++;
i++;
}
nuevoNodoS.hijos[j] = actual.hijos[i];
actual.hijos[i] = null;
}
else
{
while (i < tamanioMax - 1)
{
nuevoNodoS.Llaves[j] = actual.Llaves[i];
actual.Llaves[i] = null;
actual.tamaño--;
nuevoNodoS.tamaño++;
i++;
j++;
}
nuevoNodoS.esHoja = true;
actual.esHoja = true;
}
actual.Padre = nuevaRaiz;
actual.indiceHijoDePadre = 0;
nuevoNodoS.Padre = nuevaRaiz;
nuevoNodoS.indiceHijoDePadre = 1;
nuevaRaiz.Padre = null;
nuevaRaiz.Llaves[0] = actual.Llaves[indexMedio];
nuevaRaiz.hijos[0] = actual;
nuevaRaiz.hijos[1] = nuevoNodoS;
nuevaRaiz.tamaño++;
actual.Llaves[indexMedio] = null;
actual.tamaño--;
actual.estaLleno = false;
this.raiz = nuevaRaiz;
}
public ArbolSucursal(int tamanioMax)
{
if (tamanioMax < 8)
{
throw new Exception("El grado del arbol debe ser de almenos 5");
}
this.tamanioMax = tamanioMax;
raiz = new NodoS(tamanioMax + 1);
raiz.esHoja = true;
}
private List <Sucursal> Mostrar(NodoS nodo)
{
var Lista = new List <Sucursal>();
if (!nodo.esHoja)
{
for (int i = 0; nodo.hijos[i] != null; i++)
{
Mostrar(nodo.hijos[i]);
}
}
for (int j = 0; j < nodo.Llaves.Length; j++)
{
Lista.Add(nodo.Llaves[j]);
}
return(Lista);
}
private Sucursal BuscarCompa(NodoS actual, int idB)
{
NodoS temporal = actual;
int i = 0;
while (i <= actual.tamaño - 1 && idB > actual.Llaves[i].id)
{
i++;
}
if (i <= actual.tamaño - 1 && idB == actual.Llaves[i].id)
{
return(actual.Llaves[i]);
}
else if (actual.esHoja)
{
return(null);
}
else
{
return(BuscarCompa(actual.hijos[i], idB));
}
}
private void InsertarNoLleno(NodoS actual, Sucursal dato)
{
var i = actual.tamaño - 1;
var m = actual.tamaño;
//Cuando inserto en rama y si tiene hijos
if (!actual.esHoja)
{
while (i >= 0 && dato.id < actual.Llaves[i].id)
{
actual.Llaves[i + 1] = actual.Llaves[i];
actual.hijos[i + 2] = actual.hijos[i + 1];
i--;
}
}
else
{
while (i >= 0 && dato.id < actual.Llaves[i].id)
{
actual.Llaves[i + 1] = actual.Llaves[i];
i--;
}
}
actual.Llaves[i + 1] = dato;
actual.tamaño++;
//Mover hijo si no es hoja
if (!actual.esHoja)
{
var x = i + 1;
var c = i + 2;
actual.hijos[c] = actual.hijos[x];
actual.hijos[x] = new NodoS(tamanioMax);
int j = 0;
for (; actual.hijos[c].Llaves[j].id < dato.id; j++)
{
actual.hijos[x].Llaves[j] = actual.hijos[c].Llaves[j];
if (!actual.hijos[c].esHoja)
{
actual.hijos[x].hijos[j] = actual.hijos[c].hijos[j];
}
actual.hijos[c].tamaño--;
actual.hijos[x].tamaño++;
}
int k;
for (k = j; k < m; k++)
{
actual.hijos[c].Llaves[k - j] = actual.hijos[c].Llaves[k];
actual.hijos[c].Llaves[k] = null;
if (!actual.hijos[c].esHoja)
{
actual.hijos[c].hijos[k - j] = actual.hijos[c].hijos[k];
actual.hijos[c].hijos[k] = null;
}
}
if (!actual.hijos[c].esHoja)
{
actual.hijos[c].hijos[actual.hijos[c].tamaño] = actual.hijos[c].hijos[k - j];
}
if (actual.tamaño == tamanioMax - 1)
{
actual.estaLleno = true;
}
}
}
private void PartirEn23(NodoS padre, int indexHijoLleno, Sucursal dato, bool hermanoIzquierdo)
{
//Si el tiene un padre, el no es raiz
int indexLadoIzquierdo = hermanoIzquierdo ? (indexHijoLleno - 1) : indexHijoLleno;
int indexLadoDerecho = hermanoIzquierdo ? (indexHijoLleno) : indexHijoLleno + 1;
int dosTercios = (tamanioMax * 2) / 3;
int indexLlavePadre = hermanoIzquierdo ? (indexHijoLleno - 1) : (indexHijoLleno);
int tamañoMaxNodoS = tamanioMax - 1;
bool esHoja = padre.hijos[indexHijoLleno].esHoja;
int j = 0;
var arr = new Sucursal[tamanioMax * 2];
var hijos = new NodoS[tamanioMax * 2];
for (int i = 0; i < tamañoMaxNodoS; i++)
{
arr[j++] = padre.hijos[indexLadoIzquierdo].Llaves[i];
arr[j++] = padre.hijos[indexLadoDerecho].Llaves[i];
}
arr[j++] = dato;
arr[j++] = padre.Llaves[indexLlavePadre];
if (!esHoja)
{
int x = 0;
for (int i = 0; i < tamanioMax; i++)
{
hijos[x++] = padre.hijos[indexLadoIzquierdo].hijos[i];
}
for (int i = 0; i < tamanioMax; i++)
{
hijos[x++] = padre.hijos[indexLadoDerecho].hijos[i];
}
}
j = 0;
int k;
for (k = 0; k < dosTercios; k++)
{
padre.hijos[indexLadoIzquierdo].Llaves[k] = arr[j++];
}
while (k < tamañoMaxNodoS)
{
padre.hijos[indexLadoIzquierdo].Llaves[k++] = null;
padre.hijos[indexLadoIzquierdo].tamaño--;
}
padre.hijos[indexLadoIzquierdo].estaLleno = false;
Sucursal padre1 = arr[j++];
padre.Llaves[indexLlavePadre] = padre1;
for (k = 0; k < dosTercios; k++)
{
padre.hijos[indexLadoDerecho].Llaves[k] = arr[j++];
}
while (k < tamañoMaxNodoS)
{
padre.hijos[indexLadoDerecho].Llaves[k++] = null;
padre.hijos[indexLadoDerecho].tamaño--;
}
padre.hijos[indexLadoDerecho].estaLleno = false;
Sucursal padre2 = arr[j++];
var nuevoNodoS = new NodoS(tamanioMax);
for (k = 0; j < tamanioMax * 2; k++)
{
nuevoNodoS.Llaves[k] = arr[j++];
nuevoNodoS.tamaño++;
}
var nodoDerecho = padre.hijos[indexLadoDerecho];
if (padre.estaLleno)
{
if (padre.Padre == null)
{
partirRaiz(padre);
}
else
{
InsertarEnHoja(padre.Padre, padre.indiceHijoDePadre, padre2);
}
}
else
{
int m = nodoDerecho.Padre.tamaño - 1;
for (; m > indexLlavePadre; m--)
{
nodoDerecho.Padre.hijos[m + 1] = nodoDerecho.Padre.hijos[m + 1];
}
nodoDerecho.Padre.Llaves[m + 1] = padre2;
nodoDerecho.Padre.hijos[m + 2] = nuevoNodoS;
nodoDerecho.Padre.tamaño++;
nuevoNodoS.Padre = nodoDerecho.Padre;
nuevoNodoS.esHoja = esHoja;
}
if (nodoDerecho.Padre.tamaño == tamanioMax - 1)
{
nodoDerecho.Padre.estaLleno = true;
}
}
public NodoS(int grado)
{
gradoMaximo = grado;
Llaves = new Sucursal[grado - 1];
hijos = new NodoS[grado];
}