p1<-vector(length=9)
p2<-vector(length=9)
v1<-vector(length=9)
v2<-vector(length=9)
v1[10]=0
v2[10]=0
p2[9]=3
for(i in 9:1)
  v2=p2+v1[i+1]-p2*((1-p2)/7)
#在这里我想用v2对p2求导，然后令倒数等于0，怎么弄啊？？？求大神
  v1=0.8*(1-((1+p1)/10))*(p1+v1[i+1])+0.8*((1+p1)/10)*v2+0.2*v1[i+1]
#这里也是差不多的意思