Matlab求凸包！

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

function [ A,X ] = f()%UNTITLED6 Summary of this function goes here% Detailed explanation goes herefid=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;endt=1;global b;for i=2:2:X b(t)=A(i); t=t+1;endK = 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');endfclose(fid);fclose(fid1);end