Alphamelts-windows

MELTs软件win版 The alphaMELTS software package and included Perl scripts provide a simple textbased interface to subroutine versions of the algorithms MELTS, pMELTS, and pHMELTS.

function [data names] = column_pick（column_list_file varargin）
%COLUMN_PICK run column_pick.command and process results.
%
%   [DATA NAMES] = COLUMN_PICK（COLUMN_LIST_FILE ...）
%
%   Calls column_pick.command for the given COLUMN_LIST_FILE using Matlab‘s 
%   perl function. Additional COLUMN_LIST_FILES can follow the first and
%   will behave as if concatenated.
%
%   The output is a matrix DATA padded with NaN where appropriate and
%   （optionally） a cell NAMES with the column_pick.command generated column
%   names. You can assign the columns of the data matrix to variabls with
%   these names （or your own choice） with something like this:
%
%   for k = 1:length（names）
%       eval（[names{k} ‘= data（: ‘ int2str（k） ‘）;‘]）;
%   end
%
%   COLUMN_PICK assumes that the COLUMN_LIST_FILES uses the following lines:
%
%   Delimiter: ‘‘
%   Header: matlab
%
%   It should be obvious if either the delimiter or header is incorrect. If
%   cell2mat fails it could mean there is a misake in the COLUMN_LIST_FILE
%   （e.g. ‘variables‘ were not used in a table with ‘missing‘ rows） or there
%   is a bug in column_pick. Try running perl（‘column_pick.command‘ ...）
%   without the ‘> ‘ to see if the script generated any warnings or errors.   
%
%   See alphaMELTS documentation and forum for more information. We have 
%   thoroughly tested column_pick.command and believe it is robust but if 
%   you find a problem please report it （psmith@gps.caltech.edu）. Thanks!

if （nargin < 1）; error（‘Please supply a column_list_file name!‘）; end;

data = perl（‘column_pick.command‘ column_list_file varargin{:} ‘> ‘）;

if （ispc）; delim = ‘\r\n‘; else delim = ‘\n‘; end;

data = textscan（data ‘%s‘ ‘Delimiter‘ delim）;
data = data{:}‘;

names = textscan（data{1} ‘%s‘ ‘Delimiter‘ ‘‘）;
names = names{:}‘;

data = cellfun（@（x） textscan（x ‘%f‘ ‘Delimiter‘ ‘‘） data（2:end））;
data = cell2mat（data）‘;

end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件      241978  2013-08-14 23:49  windows_alphamelts_1-3\2004GC000816.pdf
     文件        1687  2013-08-14 23:49  windows_alphamelts_1-3\alphamelts_default_env.txt
     文件      554676  2013-08-14 23:49  windows_alphamelts_1-3\alphamelts_manual.pdf
     文件         525  2013-08-14 23:49  windows_alphamelts_1-3\Amoeba.melts
     文件       15819  2013-08-14 23:49  windows_alphamelts_1-3\column_pick.command
     文件        1964  2013-08-14 23:49  windows_alphamelts_1-3\column_pick.m
     文件       11058  2013-08-14 23:49  windows_alphamelts_1-3\default_trace_data.txt
     文件        3522  2013-08-14 23:49  windows_alphamelts_1-3\file_format.command
     文件        2019  2013-08-14 23:49  windows_alphamelts_1-3\frac_xtal_env.txt
     文件       12311  2013-08-14 23:49  windows_alphamelts_1-3\install.command
     文件        2836  2013-08-14 23:49  windows_alphamelts_1-3\isentropic_melt_env.txt
     文件        1568  2013-08-14 23:49  windows_alphamelts_1-3\McKenzie_ONions_DM.melts
     文件        1550  2013-08-14 23:49  windows_alphamelts_1-3\McKenzie_ONions_PM.melts
     文件         621  2013-08-14 23:49  windows_alphamelts_1-3\Morb.melts
     文件       21016  2013-08-14 23:49  windows_alphamelts_1-3\run_alphamelts.command
     文件        1515  2013-08-14 23:49  windows_alphamelts_1-3\Sun_McDonough_PM.melts
     文件        6753  2013-08-14 23:49  windows_alphamelts_1-3\update.command
     文件        1264  2013-08-14 23:49  windows_alphamelts_1-3\Workman_Hart_DMM.melts
     文件     4213248  2013-08-14 23:51  windows_alphamelts_1-3\alphamelts_win32.exe
     目录           0  2013-08-14 23:51  windows_alphamelts_1-3\