Hot answers tagged

5

Maybe we need to use Grad to calculate the Gram matrix CoordinateTransform[ "Spherical" -> "Cartesian", {r, θ, ϕ}] Transpose[Grad[%, {r, θ, ϕ}]] . Grad[%, {r, θ, ϕ}] // Simplify {{1, 0, 0}, {0, r^2, 0}, {0, 0, r^2 Sin[θ]^2}}


1

There 2 typo in My work. First, let plot function y, local minimum and maximum in one plot as follows Clear["Global`*"]; u = 5; \[Tau] = (1/2)*10^(-3); c = 10^(-6); r = 1000; y = u*Sum[((1 - E^((-t + \[Tau] + 4 n \[Tau])/(c*r))) HeavisideTheta[ t - 4 n \[Tau]] HeavisideTheta[ t - \[Tau] - 4 n \[Tau]]) - ((1 - E^((-t + (3 + ...


1

Not an answer just trying to clarify what you are looking for. I evaluate your code Clear["Global`*"]; u = 5; τ = (1/2)*10^(-3); c = 10^(-6); r = 1000; y = u*Sum[((1 - E^((-t + τ + 4 n τ)/(c*r))) HeavisideTheta[ t - 4 n τ] HeavisideTheta[ t - τ - 4 n τ]) - ((1 - E^((-t + (3 + 4 n) τ)/(c*r))) HeavisideTheta[ t - 4 n ...


1

All the objects involved should be defined before used like theta = {ctheta[1], ctheta[2], ctheta[3]}; omega = {comega[1], comega[2], comega[3]}; Omega = {cOmega[1], cOmega[2], cOmega[3]}; I2 = Table[i2[ctheta[1], ctheta[2], ctheta[3]][i, j], {i, 1, 3}, {j, 1, 3}]; Ip = Table[ip[ctheta[1], ctheta[2], ctheta[3]][i, j], {i, 1, 3}, {j, 1, 3}]; L = 1/2 theta....


Only top voted, non community-wiki answers of a minimum length are eligible