fid = fopen('mote.txt','r');
k = 1;
n_ = [];
p_= [];
while 1
    tline = fgetl(fid)
    if ~ischar(tline)
        break
    end
    if isempty(p_)
    p_ = sscanf(tline,' iniziale punto, X=    %f  Y=    %f  Z=    %f')
    end
    if isempty(n_)
    n_ = sscanf(tline,' testo %s')
    end
    if ( ~isempty(p_) && ~isempty(n_) )
        if length(n_) == 1
            n_ = ['0','0',n_];
        elseif length(n_) == 2
            n_ = ['0',n_];
        end
        n(k,:) = n_;
        p(k,:) = p_;
        k = k + 1;
        p_ = [];
        n_ = [];
    end
end
fclose(fid)

