Matlab - MATLAB Y HUFFMAN Y UITABLE

function varargout = huffman(varargin)

% --- Executes on button press in pushbutton1.

function pushbutton1_Callback(hObject, eventdata, handles)

% hObject    handle to pushbutton1 (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

% Importamos los datos de una .txt

a=importdata(uigetfile({'*.txt'}, 'Escoger Archivo .txt'));

set(handles.listbox1,'string',a);

handles.a=a;

guidata(hObject,handles);

% --- Executes on selection change in listbox1.

function listbox1_Callback(hObject, eventdata, handles)

% hObject    handle to listbox1 (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns listbox1 contents as cell array

%        contents{get(hObject,'Value')} returns selected item from listbox1

% --- Executes during object creation, after setting all properties.

function listbox1_CreateFcn(hObject, eventdata, handles)

% hObject    handle to listbox1 (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    empty - handles not created until after all CreateFcns called

% Hint: listbox controls usually have a white background on Windows.

%       See ISPC and COMPUTER.

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

% --- Executes on button press in pushbutton2.

function pushbutton2_Callback(hObject, eventdata, handles)

% hObject    handle to pushbutton2 (see GCBO)

% eventdata  reserved - to be defined in a future version of MATLAB

% handles    structure with handles and user data (see GUIDATA)

% Llamada a la cadena de datos

x=handles.a;

j=char(x);

ari=sscanf(j,'%c');

% Busca la cantidad de letras del código ascii

for j=32:255

    dato=char(j);

    eventos=length(strfind(ari,dato));

    probabilidad=eventos/length(ari);

    if eventos~=0

       a=probabilidad;

       b=dato;

    end

end

a=[];

b=[];

c=[];

for i=32:255

n=char(i);

y=strfind(ari,n);

q=length(y);

p1=q/length(ari);

if q==0

m=n;

else

m=n;

p=q;

a=[a m];

b=[b p1];

c=[c p];

end

end

%letras

a1=(a(:)');

aa=[a1];

Alfabeto=(aa(:));

%probabilidad

b1=(b(:)');

bb=[b1];

Probabilidad=(bb(:));

%cantidad

c1=(c(:)');

cc=[c1];

Cantidad=(cc(:));

%huffman

symbols = (Alfabeto(:)');

sym=double(symbols);

prob = Probabilidad;

[dict,avglen] = huffmandict(sym,prob);

% escribir diccionario

temp = dict;

for i = 1:length(temp)

    temp{i,2} = num2str(temp{i,2});

end

temp;

prob=temp;

prob(:,1)=[]

Huffman=(prob(:)')

% Presenta los valores en una tabla

rnames = {Alfabeto};

set(handles.uitable3,'RowName',rnames)

set(handles.uitable3,'Data',[Cantidad Probabilidad Huffman])

%Error

d=sum(Probabilidad);

if d==1

else

errordlg('Ha ingresado un texto con caracteres no programados',' Entropía ');

end

Error using set

Data within a cell array must have size [1 1]

Error in huffman_01>pushbutton2_Callback (line 190)

set(handles.uitable3,'Data',[Cantidad Probabilidad

Huffman])

Error in gui_mainfcn (line 96)

        feval(varargin{:});

Error in huffman_01 (line 42)

    gui_mainfcn(gui_State, varargin{:});

Error in

@(hObject,eventdata)huffman_01('pushbutton2_Callback',hObject,eventdata,guidata(hObject))

Error while evaluating uicontrol Callback