Guest User

Untitled

a guest
Dec 12th, 2018
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.42 KB | None | 0 0
  1. f = Sum[y[i] Log[Sum[y[i], {i, 1, n}]/(
  2. 1 - Product[(1 - b)^Exp[x[i] [Beta]], {i, 1, n}])], {i, 1, n}];
  3. D[f /. n -> 2, b]
  4.  
  5. -(((1 - b)^(-1 + E^([Beta] x[1]) +
  6. E^([Beta] x[2])) (E^([Beta] x[1]) + E^([Beta] x[2])) y[1])/(
  7. 1 - (1 - b)^(E^([Beta] x[1]) + E^([Beta] x[2])))) - ((1 - b)^(-1 +
  8. E^([Beta] x[1]) + E^([Beta] x[2])) (E^([Beta] x[1])
  9. + E^([Beta] x[2])) y[2])/(1 - (1 - b)^(E^([Beta] x[1]) + E^([Beta] x[2])))
Add Comment
Please, Sign In to add comment