mp_makeallDouble.m

% converts all mp objects to double variables
% put variable names as cell strings into mp_dontmakeallDouble if you 
% don't want them converted
%  e.g. mp_dontmakeallDouble={'C1','C2'};
%  if you don't want C1 and C2 converted to doubles

tempVarList=whos;

if exist('default_precision')~=1
 default_precision=mp_Defaults(mp(0));
end
for tempLoopVar=1:length(tempVarList)
 if strcmp(tempVarList(tempLoopVar).class,'mp')
  tempGoon=1;
  if exist('mp_dontmakeallDouble')
   if any(strcmp(tempVarList(tempLoopVar).name,mp_dontmakeallDouble))
    tempGoon=0;
   end
  end
  if tempGoon
   if ~strcmp(tempVarList(tempLoopVar).name,'default_precision')
    eval([tempVarList(tempLoopVar).name,'=double(',tempVarList(tempLoopVar).name,');']);
   end
  end
 end
end

clear tempVarList tempLoopVar tempGoon