New answers tagged

0

Comment, trying to understand the set up: Does this look right at all? I used symbols r and rp to denote rr[ρ] and its derivative Clear[r, rp, w, i1]; w[ρ_, r_, rp_] := c*(i1[ρ, r, rp] - 3); i1[ρ_, r_, rp_] := rp^2 + r^2/ρ^2 + ρ^2/(rp^2*r^2) ρ*D[w[ρ, r, rp], r] - D[ρ*D[w[ρ, r, rp], rp] /. {r -> rr[ρ], rp -> rr'[ρ]}, ρ] == 0 /. {r -> rr[ρ], rp ...



Top 50 recent answers are included