Derivative of theta1
Calculates theta1' as a function of either m or k
theta1.dash.zero(m, ...) theta1.dash.zero.q(q, ...)
m |
real parameter |
q |
Real parameter |
... |
Extra arguments passed to |
Robin K. S. Hankin
#Now, try and get 16.28.6, p576: theta1dash=theta2*theta3*theta4:
m <- 0.5
derivative <- function(small){(theta1(small,m=m)-theta1(0,m=m))/small}
right.hand.side <- theta2(0,m=m)*theta3(0,m=m)*theta4(0,m=m)
derivative(1e-7)-right.hand.sidePlease choose more modern alternatives, such as Google Chrome or Mozilla Firefox.