Skip to content

Commit

Permalink
Fix problem with computing the derivative of a PN radial function
Browse files Browse the repository at this point in the history
  • Loading branch information
barrywardell committed Jan 28, 2025
1 parent dee8e97 commit dd3d6a6
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion Kernel/PN.wl
Original file line number Diff line number Diff line change
Expand Up @@ -2558,7 +2558,7 @@ TeukolskyRadialFunctionPN[s_, l_, m_, a_, r0_,{varPN_,order_},assoc_][r_Symbol]
TeukolskyRadialFunctionPN[s_, l_, m_, a_, r0_,{varPN_,order_},assoc_][r_/;NumericQ[r]] :=assoc["RadialFunction"][r]


Derivative[n_Integer][trf_TeukolskyRadialFunctionPN][r_Symbol]:=trf[[6,1]]^(2 n) Derivative[n][trf["RadialFunction"]][r]
Derivative[n_Integer][trf_TeukolskyRadialFunctionPN][r_Symbol]:=trf[[6,1]]^(2 n) Derivative[n][trf[[-1]]["RadialFunction"]][r]


Keys[trfpn_TeukolskyRadialFunctionPN] ^:= DeleteElements[Join[Keys[trfpn[[-1]]], {}], {"RadialFunction","AmplitudesBool","TermCount"}];
Expand Down

0 comments on commit dd3d6a6

Please sign in to comment.