function ystr = str_ham(hamso)
    fhamso = fopen([hamso '.m']);
    while ~ feof(fhamso)
        y_str=strtrim(fgetline(fhamso));
        if (length(y_str) >0) && (y_str(1) ~= '%')
            ystr = y_str;
        end
    end
   
    pos =  find(~((ystr ~= ';').*(ystr ~= '%')));
    ystr(pos(1):end)=[];

    pos =  find(ystr == '.');
    ystr(pos)=[];
    pos =  find(ystr == '*');
    ystr(pos)=[];
