matlab求解凸包,Matlab求凸包！

Matlab真是一个神奇的软件。庞大而强大。very nice。

function [ A,X ] = f()

%UNTITLED6 Summary of this function goes here

% Detailed explanation goes here

fid=fopen('C:/Documents and Settings/Administrator/My Documents/MATLAB/T.txt','r');

fid1=fopen('C:/Documents and Settings/Administrator/My Documents/MATLAB/answer.txt','wt');

str1='Data';

digits(20);

%format long;

str2='Convhull';

str=fscanf(fid,'%s',1);

n=fscanf(fid,'%d',1);

[A,X]=fscanf(fid,'%f',n*2);

global a;

t=1;

for i=1:2:X-1

a(t)=A(i);

t=t+1;

end

t=1;

global b;

for i=2:2:X

b(t)=A(i);

t=t+1;

end

K = convhull(a,b);

disp(K);

plot(a(K),b(K),'r-',a,b,'b+')

l=length(K);

fprintf(fid1,'%s',str2);

fprintf(fid1,'/n');

fprintf(fid1,'%d',l-1);

fprintf(fid1,'/n');

digits(20);

for i=1:1:l-1

digits(20);

fprintf(fid1,'%.20f',a(K(i)));

fprintf(fid1,' ');

digits(20);

fprintf(fid1,'%.20f',b(K(i)));

fprintf(fid1,'/n');

end

fclose(fid);

fclose(fid1);

end