add some comments and a function to Stochastic_model_Don.r

add the function calculating graduated annuity initial payment directly.