function [RatioRValues,UmaxValues] = looper
% Iterates over a range of RatioRValues


RatioRValues=[0.1:0.1:10]
UmaxValues=[]
for r=RatioRValues,
    UmaxValues = [UmaxValues model_7_1_13(r)];
    UmaxValues
    end

end