Tag Info

New answers tagged

1

One syntax problem is Cos^2[Sin[t]] this should be Cos[Sin[t]]^2 (probably). Next, it doesn't look like VectorPlot is the right plotting function because you've only got one variable t. Assuming these guesses are right, you can plot: Plot[Evaluate[{Abs[ D[((-3 Cos[Sin[t]])/(Sqrt[ 9 Cos[Sin[t]]^2 + 4 Sin[Sin[t]]^2]))/(Sqrt[ 9 ...


1

B /. f_[x, y, z] :> f will get rid of the [x,y,z,t] on the functions.


2

In order to examine the offending Sqrt, I added EvaluationMonitor :> If[1 - Sin[θ[x, y] k]^2 a/r[x, y] < 0, Print[x, " ", y, " ", r[x, y], " ", θ[x, y], " ", 1 - Sin[θ[x, y] k]^2 a/r[x, y]]] to the first function Q in the Question. Interestingly, numerous instances of r[x, y] < a were printed. For instance -2.27757 -1.41668 2.68223 ...



Top 50 recent answers are included