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
