function [Calg]=Calg_MM(MM)

if MM>7
    Calg=unifrnd(200,3800);
else
    if MM>6
        Calg=unifrnd(400,3800);
    else
        if MM>5
            Calg=unifrnd(600,3800);
        else
            if MM>4
                Calg=unifrnd(800,3800);
            else
                if MM>3
                    Calg=unifrnd(1000,3800);
                else
                    if MM>2
                        Calg=unifrnd(1300,3800);
                    else
                        if MM>1
                            Calg=unifrnd(1700,3800);
                        else
                            Calg=unifrnd(2500,3800);
                        end
                    end
                end
            end
        end
    end
end

