Listas ligadas en matlab

Listas Ligadas

Objetivo general.

Demostrar como funcionan las listas ligadas y sus funciones basicas, demostrar el uso de apuntadores, como se insertan elementos, eliminan y como se listan enMATLAB

Código Fuente.

PRINCIPAL

lista.x=1; % El nodo x inicia en la posición 1 lista.free=1; % Se apunta a la posición 1 de la lista lista.heap=0; % Este inicia como nulo lista.A=[2 3 4 5 6 78 0; 0 0 0 0 0 0 0 0; 0 0 0 0 0 0 0 0];% Se declara una matriz listaB=List_Insert(lista,lista.free,20); % Inserto un elemento listaB=List_Insert(listaB,listaB.free,26);listaB=List_Insert(listaB,listaB.free,67); listaB.A % Muestra el resultado de insertar esos 3 elementos s=List_Search(listaB.A,26); % Busco si existe el elemento listaB=List_Delete(listaB,s); % Se elimina listaB.A % Muestra elresultado de haber eliminado listaB=List_Insert(listaB,listaB.free,39); % Inserto elementos listaB=List_Insert(listaB,listaB.free,45); listaB.A % Muestro de nuevo s=List_Search(listaB.A,39);listaB=List_Delete(listaB,s); % Elimino un elemento listaB.A % Muestro resultado final

METODO INSERTAR

function listasI=List_Insert(L,x,val) listasI=L; %Método Allocate Object if(listasI.free==0)disp('Error, no hay ningun elemento'); else x=listasI.free; listasI.free=listasI.A(1,x); listasI.x=x; end %Método Insertar listasI.A(1,x)=listasI.heap; if(listasI.heap~=0) listasI.A(3,listasI.heap)=x; endlistasI.heap=x; listasI.A(3,x)=0; listasI.A(2,x)=val; end

METODO BORRAR

function listasD=List_Delete(L,x) if(x~=0) listasD=L; if(listasD.A(3,x)~=0) temp=listasD.A(3,x)listasD.A(1,temp)=listasD.A(1,x); else listasD.heap=listasD.A(1,x); end if (listasD.A(1,x)~=0) temp2=listasD.A(1,x);

listasD.A(3,temp2)=listasD.A(3,x); end %Metodo free object listasD.A(1,x)=listasD.free; listasD.free=x; elsedisp('Error el elemento no se ha encontrado'); end end

METODO BUSCAR

function x=List_Search(L,k) A=L; x=length(A); while(x~=0 & A(2,x)~=k) x=x-1; end end

Resultados en consola.

%Salida...