libsvm数据格式转换程序

function write4libsvm 
% 为了使得数据满足libsvm的格式要求而进行的数据格式转换 注意原始格式是mat的数据格式，转化成txt或者dat都可以。
% 原始数据保存格式为: 
%             [标签 第一个属性值 第二个属性值...] 
% 转换后文件格式为满足libsvm的格式要求，即: 
%             [标签 1:第一个属性值 2:第二个属性值 3:第三个属性值 ...] 
% Genial@ustc 
% 2004.6.16 
[filename pathname] = uigetfile（ {‘*.mat‘ ... 
       ‘数据文件（*.mat）‘; ... 
       ‘*.*‘                   ‘所有文件 （*.*）‘} ... 
   ‘选择数据文件‘）; 
try 
   S=load（[pathname filename]）; 
   fieldName = fieldnames（S）; 
   str = cell2mat（fieldName）; 
   B = getfield（Sstr）; 
   [mn] = si