function mmviss(a,b)

format long;
format infsup;
fid1 = fopen(a,'r');
fid2 = fopen(b,'r');
dflsys = fscanf(fid1,'%s');
dflsol = fscanf(fid2,'%s');
fclose(fid1);
fclose(fid2);

startp = strfind(dflsol,'Complex(');
endp = strfind(dflsol,')');
if ~isempty(startp)
    new = dflsol(1:startp(1)-1);
    for k=1:length(startp)
        temp = dflsol(startp(k)+8:endp(k)-1);
        temp = strrep(temp,',','+');
        temp = strcat(temp,'i');
        new = strcat(new,temp);
        if k<length(startp)
            new = strcat(new,dflsol(endp(k)+1:startp(k+1)-1));
        else
            new = strcat(new,dflsol(endp(k)+1:end));
        end
    end
    dflsol = new;
end
dflsys = strrep(dflsys,'dflsys:=','');
dflsol = strrep(dflsol,'dflsol:=','');
dflsys = strrep(dflsys,'\','');
dflsol = strrep(dflsol,'\','');
dflsys = strrep(dflsys,';','');
dflsol = strrep(dflsol,';','');
dflsys = strrep(dflsys,',',';');
dflsol = strrep(dflsol,',',';');
dflsys = strrep(dflsys,'[','(');
dflsys = strrep(dflsys,']',')');
dflsys = strcat('h=inline(''[',dflsys);
dflsys = strcat(dflsys,']'')');
eval(dflsys);
intcal = strcat('[X,xs]=verifynlss(h,[',dflsol);
intcal = strcat(intcal,'])');
eval(intcal);