[remnant]

直接给源程序吧：
a_vec = A( :, 1 );
a_vec_u = unique( a_vec );
for i = 1 : length( a_vec_u )
b_mat = A( find( a_vec == a_vec_u(i) ), : );
b_mat_neg = b_mat( find( b_mat( :, 3 ) < 0 ), : );
b_mat_pos = b_mat( find( b_mat( :, 3 ) > 0 ), : );
tar_neg = b_mat_neg( find( b_mat_neg( :, 3 ) == max( b_mat_neg( :, 3 ) ) ), : );
tar_pos = b_mat_pos( find( b_mat_pos( :, 3 ) == min( b_mat_pos( :, 3 ) ) ), : );
fid = fopen( [ 'A', num2str(a_vec_u(i)), '.txt' ], 'w' );
fprintf( fid, 'Max negtive:\t' );
fprintf( fid, '%f\t', tar_neg );
fprintf( fid, '\n' );
fprintf( fid, 'Min postive:\t' );
fprintf( fid, '%f\t', tar_pos );
fclose( fid );
end