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