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