Guest User

Untitled

a guest
May 23rd, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. F[a_,b_]:= a + b
  2.  
  3. D[a,c] == R1
  4.  
  5. D[F[a,b],c] = R1 + R2
  6.  
  7. Clear[a, b, f, r1, r2]
  8. a /: Dt[a, c] := r1
  9. b /: Dt[b, c] := r2
  10. f[a_, b_] := a + b
  11.  
  12. Dt[f[a, b], c]
  13. (* r1 + r2 *)
  14.  
  15. Clear[g]
  16. Dt[g[a, b]]
  17. (* Dt[b] D[g[a, b], b] + Dt[a] D[g[a, b], a] *)
  18.  
  19. Clear[a, b, f, r1, r2];
  20.  
  21. f[a_, b_] := a + b;
  22.  
  23. Dt[f[a, b]]
  24.  
  25. (* Dt[a, c] + Dt[b, c] *)
  26.  
  27. % /. {Dt[a, c] -> r1, Dt[b, c] -> r2}
  28.  
  29. (* r1 + r2 *)
Add Comment
Please, Sign In to add comment