Displaying 1 result from an estimated 1 matches for "grad4".
Did you mean:
grade
2007 Sep 22
0
error messages
...0000,g,pi)$value*integrate(function(y)besselI(k1+k12*cos(y),0)*exp(k2*cos(y)),subdivisions=10000000,g,pi)$value-integrate(function(y)exp((k2+k12*cos(x))*cos(y)),subdivisions=10000000,g,pi)$value*integrate(function(y)besselI(k1+k12*cos(y),1)*cos(y)*exp(k2*cos(y)),subdivisions=10000000,g,pi)$value)
grad4<-sum(integrate(function(y)besselI(k1+k12*cos(y),0)*exp(k2*cos(y)),subdivisions=10000000,g,pi)$value*exp((k2+k12*cos(x))*cos(g))-integrate(function(y)exp((k2+k12*cos(x))*cos(y)),subdivisions=10000000,g,pi)$value*besselI(k1+k12*cos(g))*exp(k2*cos(g)))
c(grad1,grad2,grad3,grad4)
}
constrO...