powered by
ivphiBB7(theta, delta, t)
phiBB7
#b<-ivphiBB7(1.1,0.8,c(a[7],a[8],a[9],a[10]))
Run the code above in your browser using DataLab