Markov=function(c,n)求一步转移概率矩阵
Trans=function(p,k)求k步转移概率矩阵

Ultimate=function(p)求终极状态概率
ForePro=function(p,ii,k)预测第k期处于各个状态的概率
Earn=function(r,p,k)预测经过k步后的收益
c为原始的时间序列状态向量，n代表状态的个数，p为一步转移概率矩阵，ii为原始数据最后一期的状态向量，r为损益矩阵。