# Question:Please i ecountered an error in computing for senstivities of parameters of a certain function

## Question:Please i ecountered an error in computing for senstivities of parameters of a certain function

Maple

 >
 > # # Set up numerical values for all problem parameters #   params:=[       psi=0.142,        mu[1]=0.112,      phi=0.4e-3,                  mu[v]=0.002, beta[o]=0.081,  M[h]=10,             omega=0.2e-2,     eta=0.5e-1, mu[e]=0.092,                 pi=0.598e-2,    beta[*]=.5,      eta=0.213,                         ]:
 > # # Define main function #   R:= sqrt((psi+mu[1]+phi)*(mu[1])^(2)*mu[v]*psi*beta[o]*(M[h])^(2)*(omega+mu[1]+eta)*mu[e]*pi*beta[*]/(psi+mu[1]+phi)*(omega+mu[1]+eta)*mu[v]*mu[e]*(mu[1])^2);
 > # # Compute "all" derivatives and evaluate numerically. # # For the purposes of this calculation "all" # derivatives, means the derivatives with respect to # every variable returned by indets(R, name) # # Output a list of two element lists where each of # the latter is # # [ varName, #   eval( diff( R, varName), params ) # ] #  [ seq( [j, eval( diff( R, j), params )],j in indets(R, name))];
 > # # Compute all "sensitivities" (where the sensitivity # is as defined in Rouben Rostamian response to the # OP's earlier post) and evaluate numerically. # # For the purposes of this calculation "all" sensitivities # means the sensitivity with respect to every variable # returned by indets(R, name) # # Output a list of two element lists where each of # the latter is # # [ varName, #   eval( varName*diff( R, varName)/R, params ) # ] #   seq( [j, eval( j*diff( R, j)/R, params )],j in indets(R, name));
 >
 >