strrem.m

来自「王小平《遗传算法——理论、应用与软件实现》随书光盘」· M 代码 · 共 31 行

% function s = strrem(s1)
% Removes sockets and function brackets from string s1. For use with
% tree_ga.m

% Author             Date     Predecessor   Modification
% ======             ====     ===========   ============
% B.McKay M.Willis   24/5/95  strrep2.m     remove sockets and curly brackets.
% 
% Function Calls:   
% ===============    
%
% Last Modification: 24/5/95
% =================
%

function s = strrem(s1)

str_len=length(s1);
s2='{'; s3='}'; s4='>';
s5='<';

% Find all occurances of s2,..,s7 in s1

I_1chr = find(s1 == s2 | s1 == s3 | s1 == s4);
s1(I_1chr)='';

I_2chr = find(s1 == s5);
I_2chr = [I_2chr I_2chr+1];
s1(I_2chr)='';
s=s1;