New answers tagged

3

Φ[r_, θ_, ϕ_] := {r Sin[θ] Cos[ϕ], r Sin[θ] Sin[ϕ], r Cos[θ]} grad = Grad[f@Φ[r, θ, ϕ], {r, θ, ϕ}] TeXForm @ Style[grad, TextAlignment -> Left] $\scriptsize\left\{\cos (\theta ) f^{(\{0,0,1\})}(\{r \sin (\theta ) \cos (\phi ),r \sin (\theta ) \sin (\phi ),r \cos (\theta )\})+\\ \ \ \ \sin (\theta ) \sin (\phi ) f^{(\{0,1,0\})}(\{r \sin (\theta ) ...


6

Answering the question in the title: n = 8; r = 6; i = 3; Array[t, r, i, f] == Array[t, r - 1, i + 1, f] - Array[t, r - 1, i, f] (* f[t[3], t[4], t[5], t[6], t[7], t[8]] == f[t[4], t[5], t[6], t[7], t[8]] - f[t[3], t[4], t[5], t[6], t[7]] *) For your code, better use t[i] instead of $t_i$ subscripts.


Top 50 recent answers are included