how to remove duplicate edges like A-B, B-A are showing same.

fileID = fopen('C:\Users\TR RAO\Desktop\rao.txt','r');
C = textscan(fileID, '%s %s');
fclose(fileID);
d1=cellstr(C{1,1});d2=cellstr(C{1,2});
G=graph(d1,d2);
A=adjacency(G)

The above program is not allowing duplicates. Kindly suggest me solution

Input:

1  2
1 3
1 4
2 1
4  1
2  3

Answer 1

[KSSV]

A = [1  2
    1 3
    1 4
    2 1
    4  1
    2  3] ;
% Get distance of th epoints from origin   
data = repmat([0 0],[length(A),1])-A ;
dist = sqrt(data(:,1).^2+data(:,2).^2);
[c,ia,ib] = unique(dist) ;

iwant = A(ia,:)